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Gi-a-rik-RORTH 


Nach viel harter Arbeit liegt Ihnen nun die, wie ich meine, 
beste Programmiersprache vor, um schnelle Grafik im hochauflö¬ 
senden Modus zu programmieren. Grafik-Forth ist nicht nur eine 
Kombination von "fig-FORTH 1.4S“ und TURBO-GRAPHICS-SYSTEM 256, 
sondern eine Weiterentwicklung, eine neue Programmiersprache. 


ohne Gewähr! 

Ich bitte Sie die COPYRIGHT-Rechte zu beachten. Ein 
wesentlicher Grund warum sowenig neue Software fUr die 8-Bitter 
rauskommt ist, daß soviel raubkopiert wird! 

Ich danke besonders dem Softwarehaus Sailer und hoffe, daß 
alle viel Freude und Erfolg mit dieser Programmiersprache haben 
werden. 


Warum F ORTH als 


Diese Frage werden sich bestimmt viele Leute stellen, die 

bisher noch nicht in FORTH programmiert hoben. Ich habe es bewußt 
als Stammsprache gewählt, da" es 10 bis 100 mal so schnell als 

BASIC ist und dabei weniger Speicherplatz als vergleichbare As¬ 

sembler-Programme verbraucht! Ein FORTH-Programm braucht in der 
Regel nur einviertel des Speicherplatzes eines BASIC-Programms! 

Der größte Vorteil ist aber die leichte Erweiterbarkeit und die 
einfache Programmierung. 


Rainer Hansen 


Der EEcdi-far* 

Der Editor ist ein Full-Screen-Editor. Man kann also bequem 
mit dem Cursor an die Stelle fahren, die man editieren will. 

Trotzdem hat der Editor viele Möglichkeiten zur Textmanipulation. 

Man kann nach Wörtern suchen, Abschnitte kopieren usw.. 


Sinn gmd Zweck dieses Handbuches 

Der Sinn dieses Handbuches ist nicht dem Leser die Program¬ 
mierung in der Sprache FORTH beizubringen. Der Hauptzweck ist dem 

Leser die Besonderheiten dieser FORTH-Version näher zu bringen. 
Denjenigen, die die Sprache FORTH lernen möchten, schlage ich das 
sehr gute Buch "Programmieren in FORTH" (327 Seiten) von Leo 

Brodie vor, welches im Carl Hanser-Verlag erschienen ist. In der 

Dokumentation von fig-FORTH 1.4S wird dieses Buch ebenfalls em¬ 
pfohlen. Die Bestellnummer lautet: 3-446-14070-0. Da dieses Buch 

48,- DM kostet schlage ich Ihnen auch die Bücher "FORTH-Hand- 

buch" (Hofacker Verlag, Bestellnummer 137) und “FORTH on the 

ATARI" (Hofacker Verlag, Bestellnummer 170, englisch!) vor. Das 
erste Buch hat frUher einmal 49,- DM gekostet und kostet heute 

nur noch 5,- DM und hat 148 Seiten, das zweite kostet 9.80 DM und 

hat 118 Seiten. Da ich noch keines der beiden gelesen habe, kann 
ich nichts Uber deren Qualität sagen. Der Autor beider Bücher ist 

E. Flögel. Die letzten beiden genannten Bücher sind speziell für 
fig-FORTH (Graf ik-FORTH ist eine fig-FORTH Version), während 

"Programmieren in FORTH" mehr auf FORTH-79 abgestimmt ist. Wer 

weiter führende Literatur sucht, dem schlage ich das Buch "In 

FORTH denken" von Leo Brodie vor, welches Hanser Verlag erschie¬ 
nen ist (ISBN 3-446-14334-3, 48,- DM, 299 Seiten). Alle Angaben 
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Legen Sie die Grofik-FORTH-Diaketts mit Seite 1 noch oben 

in die Diekettenetotion 1 ein, und «cholten Sie den Computer an. 

Während des Ladens ist der Bildschirm zur Beschleunigen des Lade- 
vorgange "abgeschaltet“. Nach dem Loden wird das Titelbild aus- 
gegeben, woraufhin man die START-Toste drückt; nun können Sie 
Worte eingeben. Auf der 2. Seite befindet sich eine gekürzte 
Version von Seite 1, die den Vorteil hat, daß mehr Speicherplatz 

frei bleibt. Zusätzlich befinden sich auf der Diskette Beispiel¬ 
programme, wie z.B. dos Listing vom Editor. Auf der fig-FORTH- 

Diskette befindet sich das Public Domain fig-FORTH 1.4S, und auf 

der letzten Diskette befindet sich DOS 3 mit dem Programm 
BEREICH.CMD, sowie auf der Rückseite Grafik-FORTH Teil 3. 


Diskettenformat 

FORTH arbeitet normalerweise mit einem speziellen Dis¬ 
kettenformat. Die Diskette wird in Bereiche von einem KByte (1024 

Bytes) unterteilt. Ein solcher Bereich wird Block genannt. Die 

Blocknummern können zwischen 0 und bis zu 89 (Single-Density), 

129 (Medium-Density), 178 (Double-Density) oder 358 

(Double-Sided/ Double-Density) liegen. Wenn Sie Blöcke listen 
wollen, geben Sie einfach “Blooknummer LIST <RETURN>* ein. 
Dieses Blockformat hat viele Vorteile, so lassen sich auf einer 

FORTH-Diskette bei Medium-Density (DOS 2.5-Format) 3 KByte mehr 

Daten speichern als bei einer DOS 2.5-Diskette. Durch das 

Aufteilen in Blöcke wird ouBerdem der Programmierer zum 
Programmieren von kürzeren Defini- tionen ermuntert. Nebenbei 
gesagt, laufen Lesen und Schreiben schneller als bei DOS 2.5 ab. 
Durch den Befehl DOUBLE DENSITV wird es möglich mit 
Double-Density Disks zu arbeiten, wenn die Floppy ebenfalls auf 

Double-Density eingestellt ist. Durch den Percom-Block kann man 
die Floppy entsprechend einstellen. Wie das Konfigurieren 
geschieht wird später besprochen. 

Wenn Blöcke von der Diskette gelesen werden, werden sie in 

einem der beiden Blockpuffer gespeichert. Durch den Befehl 
—OCX wird ein Block, wenn er sich noch nicht in einem 

Blockpuffer befindet, in einen geladen, und die Adresse des 

ersten Bytes vom Block wird auf den Stack gelegt. Falls vorher in 
dem Puffer ein Block gespeichert war, wird er vorher 
obgespeichert, wenn er als geändert markiert war. 


Inhaltsverzeichnis 

Das Inhaltsverzeichnis wird durch s d INDEX angezeigt, 
wobei s die Anfangs- und d die Endblocknummer ist. Genaugenommen 
wird jeweils die erste Zeile des jeweiligen Blocks ausgegeben. 
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Rw-oom—Block 


4. d * n x ^ langen Percom-Block kann man die Floppy 

softwaregesteuert konfigurieren. Oie einzelnen Bytes haben 
folgende Bedeutung; 

SD ED DD 

Byte 0: Anzahl der Spuren 040 040 040 

Byte 1; Schrittrate 

Byte 2; Sektoren/Spur (H) 000 000 000 

Byte 3; Sektoren/Spur (L) 018 026 018 

Byte 4; Seitenzahl-1 

Byte 5; Density 000 004 004 

Byte 6; Bytes/Sektor (H) 000 000 001 

Byte 7: Bytes/Sektor (L> 128 128 000 

Byte 8: Station 0N LINE 

Byte 9; Ubertragungerate 

Byte 10; Reserviert 

Byte 11: Reserviert 

RloF=>r=V konfigurieren 

, D * n . Percom-Block gibt es z.B. bei "aufgerüsteten" 1050ern 
oder ^ bei der neuen XF551 (zweiseitiges Laufwerk). Die 1050 ”er- 
k ®" nt " nOCh da . m Einlegen einer Diskette automatisch das Format. 

W 2«r #nd ^ m ° n 1 b * d * r XF 551 da * Format nur durch die «oftware¬ 
mäßige Konfigurierung des Percom-Blocks verändern kann. Als er¬ 
stes läd man, soweit noch nicht vorhanden, die Worte für die Be¬ 
nutzung des Percom-Blocks von Block 24 (Seite 1), durch 24 L0A0 

Danach gibt man READ PERCOM PERC DUMP <RETURN> ein, und die 12 
Percombytes werden ausgegeben.' Durch b i PERCOM! ändert man die 
entsprechenden Bytes ( z.B. ; 4 5 PERCOM! speichert in Byte 5 den 

Wert 4). Zum Schluß schickt man alles mit WRITE PERCOM zur 

!l 0 PP y Di * Bmtmhim SINGLE DENSITV und "DOUBLE 

DENSITY stellen dfiO-Computttr auf die richtige Sektorlänge 

ein. Dieses geschieht durch das verändern des Wertes von der Be- 

+ 4 FFSE:T * * dan c «"Put«r auf Medium-Density ein- 

zus teilen benutzt man ebenfalls den Befehl "SINGLE DENSITY", da 
die Sektorlänge von Single-rDensity gleich der von Medium-Density 

IST. ■< ( 

Damit man nicht beim Speichern versehentlich bei einer 

Kopie von der Originaldiek Teile . von FORTH überechreibt. 0 ibt es 
die Benutzer variable PHYS0FF. Inj ihr i.t di. erst. Blocknummer 


enthalten, die gelesen oder beschrieben werden 
die man z.B. bei LIST ahpibt. Ist immer eine 
Grafik-FORTH ist PHYS0FF auf <10 (Teil 1.2, 


kann. Dis Nummer, 
relative dazu. Bei 


gesetzt, 


bedeutet. 


eingeben. 


gentlich Block 40 der Diskette listen. 




Disketten-ftufteilung 

bei Gram-FOJTCH 


Bloch 49 


? - iil J»ilii 1 LV.T 3 ; 


Bloch 40 


Bloch 0 



Bloch 0 
PHYSOFF 


Disketten-ftufteilung 

bei fIj-FOJtlH 1.4S Teil 1 
Block Block BS 


Gccnams ^ 


Bloch 26 

vl' 

Bloch 0 



Bloch 0 

"physoff 


Disketten-ftufteilung 

bei flj-rORTH 1.43 Teil 2 
Bloch 89 »•—■ 


Bloch 79 


&£*«*&* 

#a3Tram3& I 




Bloch 10 

V 

Bloch 0 


N|/ 

Bloch 0 

■^physoff 


Der Wert von PHYSOFF spielt nur bei Singte-Oeneity eine 
Rone, während er bei Double-Density keinen Einfluß hat. 


DOS 2 cjnd FORTH 

Was machen, wenn man Programme, die unter DOS 2 obge¬ 
speichert sind, in FORTH loden will? Die Lösung für diese Frage 

heißt DOS 3! Dieses viel geschmähte DOS benutzt das gleiche 
Blockformat wie FORTH (1024 Bytes/Block) und im Menü gibt es den 
Punkt "Access DOS 2". Mit diesem Programm kann man DOS 2-FHes in 

das DOS 3-Format bringen. Nachdem man dieses getan hat, geht man 

ins Menü und wählt die Funktion "X user-defined". Nun legt man 

die DOS 3-Diskette, soweit nicht schon vorhanden, in dos Laufwerk 
und drückt <RETURN>. Es wird gsfrogt ob man BEREICH laden will 

und man drückt <Y>+<RETURN>, woraufhin das Programm geladen wird, 

Mit Ihm kann man eich die Nummern der Blöcke anzeigen lassen, die 

das entsprechende Progromm belegt. Der Dateiname wird ohne "D:" 
aber mit Extender eingegeben! Diese Nummern hält man sich am 
bestsn auf einem Stück Papier fest und man kann dann von FORTH 

aus die entsprechenden Blöcke loden (FORTH-Diskette einlegen und 

<BREAK>-Taste drücken. Im DOS 3-MenU den Punkt "Go at hex .addr" 
auswählen und E177 als Adresse eingeben. Schon führt der Computer 

einen sogenannten Kaltstart durch und Grafik-FORTH wird gela- 
den). 

Mit BLOCK kann man In FORTH die entsprechenden Blöcke laden 
und man muß eie nur noch an die richtige Adresse kopieren und 

starten. Achtung: Die Blocknummern, die ausgegeben werden, gelten 
für PHYSOFF-3 (3 PHYSOFF I), und die ersten 6 Bytes eines Maschi¬ 
nensprachefiles sind keine Programmdaten, sondern sind zwei Bytes 
mit dem Wert 255, die Anfangsadreese und die Endadresse. Bei zu¬ 
sammengesetzten Files kann dieser Fileheader mehrmals Vor¬ 
kommen. 


Au+ostart 

Es gibt bei DOS 2 eine AUT ORUN.SVS-Datei, die automatisch 

geladen wird, wenn der Cpmputer ungeschältst wird. Bei Grafik- 

FORTH gibt ee die Variable , 'AUTO, die die Codefeldadreese (Cfa) 

eines Wortes enthalt. Gibt man z.B. AUTO e EXECUTE ein, so Wird 

das Wort, dessen Cfa In AUTO] gespeichert ist, ausgeführt. Im 

Normalfall zeigt AUTO auf dos Wbrt CR (Wagenrücklauf). Das Wort 

leV C *° B zeigt wird ausgeführt, wenn folgendes eingetreten 

a. der Computer eingeschaltet wurde 

b. die RESET-Taste wurde gedrückt 

c. ABORT oder RESET auf gerufen wurden 

d. die BREAK-Taste gedrückt wurde 

e. WARNING hat einen negativen Wert und ein Fehler ist 

aufgetreten 
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Jedesmal wenn also “Grafik-FORTH“ ausgegeben wird, wird 
auch dae Wort, auf dom AUTO zeigt, ousgeführt. Man kann z.B. die 
Cfo von einem anderen Wort in AUTO speichern, was dann bei den 
oben genannten Fällen ausgeführf wird. Ein solche© Wort fängt am 

besten mit dem Wort CR an. Hier nun ein Beispiel, was das ganze 

demonstriert: w 

An ! en0mmen Si ® wo#en * daB bei Jedem dar oben Benannten 

Fälle das Wort HALLO ousoeführt wird, welches Ihren Namen 

ausgibt. HALLO ist wie folgt definiert: 

: HALLO CR <Ihr Name>” CR ; 

Sie speichern einfach nur die Cfa von HALLO in AUTO: 

‘ HALLO CFA AUTO ! 

FaHs Sie HALLO z.B. nur nach dem Booten ausf Uhren lassen 

wollen, so def.n.eren Sie ein Wort, welches noch der Ausführung 

* orcrr V ° n CR <n AUT0 •<> daB bei weiteren Aufrufen 

von RESET nun nur ein CR ausgegeben wird. Hier ein Beispiel: 

: HALLO' HALLO ' CR CFA AUTO I ; • HALLO' CFA AUTO 1 

Wo l«si- was gespeichert? 


befinden sich fol¬ 


gende Programme: 


* Block 0: Inhaltsverzeichnis 


* Blöcke 2-1t: Fehlermeldungen 


■ Blöcke 12-14: Auf diesen Blöcken befinden sich die "System- 

cmlü ' MAKEB00T schreibt die momentan im Speicher befindliche 

FORTH Version auf eins Disketts. Wenn man z.B. Bewiese Wörter 

immer wieder von der Diskette loden muß. iet es praktischer 

sie einmal zu laden, danach 12 LOAD ainzuseben, um MAKEBOOT zu 
laden, und dann mit MAKEBOOT olles auf Diskette zu speichern. 

Diese neue FORTH Version können Sie dann einfach durch das 

Booten der Diskette laden. FORMAT ( Drive» — J formatiert 
wie der Name schon sa 8 t, eine Oiskette. Der Quelltext für die- 
ses Wort steht in Block 14. Man kann zwischen drei Formaten 
au6wahlen: 

Single Density: 

♦ 128 in 725 speichern (OECIMAL 128 725 I {Voreinstel- 

lung)) 

♦ 02100 an die entsprechende Stelle im Quelltext schrei- 

ben (Voreinstellung) 

Enhanced Density: 

♦ 128 in 725 speichern tOECIMAL 128 725 I (Voreinstel- 

lung)) 

♦ 02200 an die entsprechende Stelle im Quelltext schrei¬ 

ben 

- Double Density: 

♦ 256 in 725 speichern (DECIMAL 256 725 ?) 

♦ 02100 an die entsprechende Stelle im Quelltext schrei¬ 

ben (Voreinstellung) 
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Ol- II T" n J . d i* Bildsohirmf erben nicht 8 »follen. können 

ehern- 0 ™ 1 *™ W,r+ * n dl * »ntsprechendsn Speicherstellen epei- 

- Schrifthelligkeit: Speicherstelle 709 (0-15) 

- Hintergrundfarbe: Speicherstellm 710 (0-255) 

- Rahmenfarbe: Speicherstelle 712 (0-255). 

. h. , F °'L B nOCh l nich * oeschehen m,t 12 LOAD die Systomworte 
“ Nu ? _ 8e ? ,n Sl# SETSYS ein. womit die Farben und die 
Bildschirmränder notiert“ werden: 



Entleerung! 


Die Hitwirkenden: 



Interpreter SElSifS 



SEIS7S 1 SETS7S 
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Wenn der' 

die Buchstaben 
SETS VS findet, 
weckt er 


sucht nach. 

den Merten fuer 
die Bildschirm- 
raender und die 
Farben. 


Menn er sie ge¬ 
funden hat. 


schreibt er sie 
ins Systembuch. 



kflDD. Durch DEC Name» kann ein Wort decompiliert werden. 
Durch "odr DIS M kann Maschinencode ab der Adresse adr disas- 
sembliert werden. Wenn man entweder eine Taste (nicht <con- 
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TR0L>+<1>) drückt oder der Computer auf ein JMP, RTS oder RTI 
stÖpt, so wird das dekompelieren beendet. «DIS dient rum 

disoesemblieren von einer bestimmten Anzahl von Befehlen ab 
einer bestimmten Adresse <z.B. ' V/ 4 «DISK 

* Block 24; Befehle für den Percom-Bfock, die sich affe auf 

Laufwerk 1 beziehen» 

* 27 ‘ 29 J *hle --difi-Einz_ und Augpob« r Mit lpopen 

Wird Kanal 7 für den Drucker geöffnet. Mit IOCB wird der 

, ZV" „ auf den sich alle folgenden Befehle beziehen 

(aktueftar Kanal). CLOSE schließt den aktuellen Kanal und 

OREN f Operation Hilfscode Gerät — ) öffnet ihn. Als Geräte 

kann man mntwmder E: (Editor), $: (Bildschirm - nur Ausgabe). 

K: (Tastatur - nur Eingabe), C: (Kassette) und P: (Drucker - 

nur Ausgabe) wählen. Mit PUT C b — I kann man ein Byte on 

' Gerät senden und mit GET ( — t» eins empfongsn. Mit 

T 7. JL ° Akkuwert — ) kann man Speicherbereiche senden 

™ lf BGET ( a « — ) empfangen. LVPE ( o « — ) ist dos 

TYPE-Kommando für den Drucker. Mit CRLP wird an den Drucker 

der Befehl Zeilenende geschickt. LINELP ( Zeiten« SCR« — ) 

gibt eine Zeile auf einem. Drucker aus. LISTLP ( Block« ) 

liefst efnsn Block auf einem Drucker und LPINDEX ( s d •_ ) 

gibt den Index auf dem Drucker aus. PONT wechselt den interna¬ 
tionalen Zeichensatz (Font) auf einem Epson-Drucker. .CLP ( n 

** ’ x Zahl und - LP C n — ) eine Zahl be- 

liebigstellig auf einem Drucker aus. 

* Bnm Demo, welche ein Balkendiagramm zeichnet. 

Mit GRAFIK EIN DEMO kann sie nach dem Laden mit 31 LOAD auf¬ 

gerufen werden. 

* 23 f 3i: Auf dieseh Blöcken befinden sich verschiedene 

Stringoperatoren. 

Mlt ®3L R3 1 NC3 k ° nn mon * ln * n S * ri "0 mH einer Länge von 

mox. 255 Zeichen erzeugen, und mit Sf kann man eine Zei¬ 
chenkette in einen String speichern. Oie Parameter, die ein 

solcher String auf dem Stack hinterläRt, sind die Strina- 
anfangsadrssse und di4 Strlnglängs. Diese Parameter . können 
direkt fUr TYPE verwendet, werden: 

♦ 30 STRING EINGABE ; , 

♦ S Wie geht es Dir?# EINGABE S! 

♦ EINGABE TYPE , 

" St ° ddi8rt *'* ei Strings und speichert das Ergebnis ab 

r AD Ob! i 

♦ z.B. EINGABE HALLO $♦ v ■ 

♦ mit PAD COUNT TYPE kann man diesen Text ausgeben 

Ml+ . k °? n man dle Länge einer Zeichenkette bestimmen 

und mit MLEN die maximal zulässige Länge: 

♦ EINGABE LEN. 

♦ EINGABE MLEN . 
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L 

- Oos Wort #, L-E:F"T begrenzt dis Zeichenkette auf n Zeichen 
vom linken Rond aus, wöhrend "N4TD eine Teiikette ob Zei¬ 
chen nl mit einer Länge « bestimmt. M RIGHT begrenzt eine 

Zeichenkette auf n Zeichen vom rechten Rand aus; 

♦ EINGABE 3 "LEFT TYPE 

♦ EINGABE 4 8 "MID TYPE 

♦ EINGABE 5 "RIGHT TYPE 

Um einen Text in einen String zu speichern gibt es zwei 
Wörter. M begrenzt einen Text innerhalb einer DoppeJ- 

punktfunktion und S: hot die gleiche Funktion ober außer- 
holb einer Doppelpunktfunktion, wobei zu beachten ist, daß 

nach dem ersten “ oder S ein Leerzeichen folgen muß, damit 

der Interpreter es als Wort erkennen kann. Genauer gesagt, 
hängt die Verwendung eines der beiden Wörter von der Zu¬ 
stande variable STATE ab. 

♦ : TEST * Dies ist ein Beispier EINGABE S! ; 

♦ $ Hallo* EINGABE S! 

COMPARE vergleicht zwei Zeichenketten und hinteriÖBt ein 
Flog, daß wahr ist, wenn beide Zeichenketten gleich sind. 

Da nur eine Löngenangobe gebraucht wird, muß man die Läng¬ 

enangabe eines Strings mit DROP löschen! 

♦ EINGABE DROP NAME COMP ARE . 

* Blöcke 36-40: Drei verschiedene Sortieralgorithmen befinden 

sich auf diesen Blöcken. Mit 36 LOAD werden sie geladen, und 

man kann einen z.B. mit BUBBLE SORT aufrufen. Mit DEMO kann 

diese Demonstration wiedergestartet werden. , 

* Blöcke A2-43: Blöcke so auf einem Drucker auszugeben, wie sie 

am Bildschirm aussehen, war bis dato immer eine große Schwie¬ 
rigkeit. Mit diesem Utility wird das ganze nun zum Kinder¬ 
spiel. Man gibt einfach Block» LISTP (z.B. 10 LISTP) ein und 

schon wird der entsprechende Block ouf einem Epson-kompatib- 
len Drucker mit allen Sonderzeichen ausgegeben. Die Worte von 

den Blöcken 27, 28 und 29 mUsson vorher geladen worden sein 
(27 LOAD 28 LOAD 29 LOAD) und es muß nach dem Laden LPOPEN 

eingegeben worden sein. 

* Blöcke 45-47: Wer mit großen Zahlen (größer als 65535) 

rechnen muß, wird sich Uber diese Routinen freuen. Auf diesen 

Blöcken befinden sich u.o. Worte zum Umgang mit 32-Bit Zahlen. 

Als Erkennungszeichen muß eine solche Zahl einen Punkt 
enthalten (z.B. 342220.45). 

- D-«- addiert und D— subtrahiert zwei 32-Bit Zahlen: 

♦ 200.000 300.000 D* D. 

♦ 345.23 123.79 D- 0. 

2COr\IS"TAISIX wird eine doppeltlange Konstante und mit 
2VARIABI—ET eine doppeltlange Variable erzeugt: 

♦ 1000000.00 C0NSTANT SCHULDEN 

♦ 134.89 2VARIABLE EINNAHMEN 

- D< vergleicht zwei Zahlen und hinterläßt ein Flog, daB 

. iSt ' „ Wenn d1<d2 - 00=5 ®lne Zahl gleich 

Null ist und D—, ob zwei Zahlen gleich sind.: 

♦ FRANKFURT-MEXIKO LUXEMBURG-MEXIKO D< . 
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♦ ATARI COMMODORE 0» (Nein!) . 

♦ RENDITE DO* . 

- S! speichert und 2(2 holt eine 32-Bit Zahl: 

♦ 0.0 EINAHMEN 2! 

♦ : TEST SCHULDEN EINNAHMEN 28 D< IF Irgend etwas 

stimmt nicht!" THEN ; 

- 2DfROF» nimmt eine 32-Bit Zahl vom Stack, 2SWAP 

vertauscht die beiden obersten Zahlen, 2DUP duplizier t 

die oberste Zahl, 20VER kopiert die zweitoberste Zahl 

nach oben und 2ROT rotiert die drittoberste nach oben; 

♦ 1111.111 2222.2222 20VER 0. 0. 0. 

♦ 1111.111 2222.2222 2SWAP 0. D. 

♦ 1111.111 2222.2222 3333.3333 2R0T D. D. D. 

♦ 400.000 300.000 2SWAP 2DR0P 0. 

“ ,ÖBt von 2 Zahl * n dt “ OrBBte ouf dem Stack, während 

DN4IN die kleinste auf dem Stack läßt: 

+ HAUS HOF DMAX D. 

♦ FRANKFURT-MEXIKO LUXEMBURG-MEXIKO DMIN 0. 

Auf Block 45 befinden sich dis Worts PICK und ROLL. PICK 

kopiert eine Zahl (16 Bit) nach oben, während ROLL eine nach 

oben rotiert. Diese Worte funktionieren - im Gegensatz zu de- 
nen bei fig-FORTH 1.4S! Mit dem Wort QUIT', welches auf. Block 
47 definiert wird, kann man Stackbewegungen verfolgen. 


Folgende Programme befinden sich auf der zweiten Seit»; 

* Block 0: Inhaltsverzeichnis 

* Blöcke 2-11: Fehlermeldungen 

* Blöcke 12-14: siehe Grafik-FORTft Teil 1 

* Block 15; Daten für den Decompiler 

" Mnn k *fc 18 "^ 6: Edlt ° r befindet sich ouf diesen Blöcken. 

Man kann den Editor sehr- leicht erweitern, indem man ein ent¬ 
sprechendes neues Wort ! schreibt und dem Wort auf Block 30 
Zeile D, eine Toete zuweist. Man schreibt zuerst den Tastatur- 

‘"° d * der Taste, der nichts mit dem Internencode oder dem 
ASCII-Code zu tun hot!, Man erhält den entsprechenden Wert 

durch: 

- : .CODE BEGIN 764 Cd j DUP . 12 = UNTIL ; 

.CODE gibt die * Tastaturcodes der gedrückten Tasten 

solange aus, bis <RETURN> gedrückt wird. 

Danach schreibt man C. urh den Wert abzuspeichern und IST 
fUge°modu8 WOr+eS " lm ' Ub " r " Chr * ibm0 T e * Name-des-Wortes-im-Ein- 

* Blöcke 39-41: Sprites \md Muster komfortabler zu erstellen 

st der Zweck dieser Worte. BIN schaltet auf die binäre Zah¬ 
lenbasis um. und S, speichert eine "Spritezeile" ob. Auf den 
Blöcken 40 und 41 finden Sie Beispiele dazu. OBJEKT liefert 

die nötigen Parameter zur Speicherung eines Sprites und Muster 

das gleiche für Füllmuster. Die Nummer vor OBJEKT oder MUSTER 

ist die entsprechende Sprite- oder Füllmusternummer. 

Während des Kopierens der entsprechenden Speicherbe¬ 
reiche an die gewünschten Stellen, muß das Betriebssytem 
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mittele RAM ausgescholtet sein, da die Adressen sich im 

RAM-Bereicb hinter dem ROM befinden. 

* Blöcke 42-13; Die Aufruf adrma&mn der Grafikbefehfe im Kern 

werden hier als Konstanten definiert. Diese Konstanten sind 
z.B. praktisch, wenn mon in Maschinensprache Worte schreiben 

will, die die Grofikroutinen benutzen. 

* Blöcke 45-46: FUr Leute, die nicht andauernd an RAM und ROM 

denken wollen und nicht die Supergeschwindigkeit brauchen, 

sind diese Worte gedacht. Nun können Sie ohne dos Schreiben 
von RAM und ROM arbeiten. 

* Blöcke 48-49; Turtle-Grafik ist mit den Worten auf diesen 

Blöcken möglich. Cs befindet sich auch eine Oemo dazu dabei, 
wobei jeder Winkel mit Sinus und Cosinus berechnet wird. TPLOT 
gibt einen Punkt aus, dessen Koordinaten in X und Y gespei¬ 
chert sind. SIN und COS berrechnen den Wert eines Winkels mal 
10000. TURTLE schaltet die Turtlegrafik ein und GOTO C x y 

— ) “geht zu einem Punkt*. TURN dreht die Zeichenrichtung um 
n Grad nach links. DRAW zeichnet eine Linie mit einem Winkel 
von 'Winkel' Grad und einer Länge von n Punkten. 

•' 1 

Folgende Programme finden Sie auf der dritten Seite (0 PHYS0FF 
I nicht vergessen!): 

■ Block 0: Inhaltsverzeichnis 

* Blöcke 2-11: Fehlermeldungen 

* Block 12: Nach dem Laden von Block 18 wird das 1050 TURBO 
unterstützt. 

* Block 15: Oaten für den Decompiler 

* Block 18: Der “Sieb des Eratosthenes* ist ein sogennanter 

Benchmark. Es werden die ersten 1899 Primzahlen berechnet, und 
die dafür verwendete Zeit kann man dann mit anderen Sprachen 
vergleichen (z.B. BASIC). 

* Blöcke 21-29: Eine Sprite-Demo, die die Geschwindigkeit der 

Grafikroutinen zeigt. 

* Blöcke 30-32: Eine FUtlmusterdemonstration, die alle FUII- 

muster anzeigt. Mit HC0PY kann man diese dann auf dem Drucker 
ausgeben. 

* Blöcke 33-35: Wörter zum Laden und Speichern von Bildern 

* Blöcke 36-45, 46-55, 56-65, 68-75, 76-85: jeweils ein Bild im 

Grafik-FORTH Format 
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Wie im Vorwort schon gesagt wurde, soll diese kurze Ein¬ 
führung nur die wichtigsten Eigenschaften von F0RTH kurz anspre¬ 
chen. Wie ich ebenfalls schon erwähnt habe, schlage ich Ihnen dos 
Buch “Programmieren In F0RTH“ von Leo Brodle vor. loh habe selbst 
diese faszinierende Sprache anhand dieses Werkes gelernt. 


Das FORTH— Lexikon 

F0RTH wird in Worten und Zahlen auegedrückt, die jeweils 

durch Leerschritte voneinander getrennt sind: 

3 SCHRITTE VOR STOP 

Kommandos können entweder direkt Über die Tastatur einge- 

geben oder von Diskette mit LOAD geladen werden. Alle Wörter, ob 
sie nun Systembestandteil sind oder vom Benutzer definiert wur¬ 
den, haben ihren Platz im FORTH-Lexikon. Definitionswörter sind 
zum Hinzufügen neuer Wörter in das Lexikon. Ein solches Oefini- 

tionswort ist der : (man nennt ihn Doppelpunkt oder englisch 

“Colon"). Man verwendet Ihn zur Definition eines neuen Wortes, 

das aus vorher definierten Wörtern gebildet wird. Man könnte ein 
neues Wort BEISPIEL wie folgt definieren: 

: BEISPIEL 3 SCHRITTE VOR STOP ; 


f 


> 


Der S+caot< 


Bei FORTH werden Zahlen auf einem sogenannten Stack obge¬ 
legt. “Stack" ist ein englisches Wort und heißt Übersetzt “Sta¬ 
pel“. Auf diesem “Stapel" { werden alle Zahlen vor und nach ihrer 

Bearbeitung "gestapelt“. Die , zuletzt eingegebene Zahl “liegt oben 
drauf". * 


Diese Funktionsweise läßt sich am besten an 
erklären. Geben Sie dazu folgendes ein: 


einem 


Beispiel 


12., <RETRUN> 2 1 oK 


Sehen Sie hier, was im Einzelnem passiert: 
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Befehl fitack 


1 

2 




feaaafefi JCQMHentar 


2__ 

? * P* 


tit Zahl 1 tarnt nt in Stack 


iit litt 7 tarnt mitilirk 
*1 *o stack 


T mi ha L«rsckritt 

kcrrfn «nie ft kn 

V ata hi Lnruwitt 
ktm aeiiiekii 


Dieses Prinzip, bei dem das biblische Wort von den ersten, 
die die letzten sein werden, realisiert wurde, heißt "LIFO* (Abk. 
fUr "Last In, First Out"). 

Wenn man ein Wort aufruft, das z.B. eine Zahl als Eingabe 
erwartet, dann holt sich das Wort diese vom Staok. Eine Zahl ist 
normalerweise ein 16-Bit Wert und belegt somit 2 Bytes » eine 
Zelle. Diese Methode hat viele Vorteile, wie Sie selbst später 
sehen werden. 


Datenstrukturen 

In FORTH "gibt es von Haus aus* zwei Datenstrukturen. Es 
gibt die Konstanten und die Variablen. Konstanten wird einmal ein 

Wert zugewiesen, der sich dann nicht mehr ändert ( der Wert 

bleibt konstant). CONSTANT ist ein Definitionswort, das wie folgt 
gebraucht wird: 

20 CONSTANT ZWANZIG 

Das Definitionswort Variable erzeugt einen reservierten 
Speicherplatz fUr sich ändernde Daten. Es wird wie folgt 
benutzt: 

0 VARIABLE ZAEHLER 

Das Wort 0 (sprich "hole" oder "fetch") holt den Inhalt ei¬ 
ner angegebenen Speicherzelle. ZAEHLER 0 holt den Inhalt der 

Variable ZAEHLER auf den Stack. 

Das Gegenstück dazu ist das \ (sprich "speichern* oder 

"störe”), welches Werte in angegebene Speicherplätze speichert. 
10 ZAEHLER ! speichert z.B. den Wert 10 in die Variable 

ZAEHLER. 
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A * n . FORTH gibt ss alle Steuerstrukturen, die man für eine 

strukturierte Programmierung ohne GOTO benötigt. 

Die Syntax der IF-THEN-Konstruktion: 

... ( Flagge) IF LAUFEN THEN SPRINGEN ... 

Die "Flagge" ist ein Wert auf dem Stack, der vom IF ver¬ 
braucht wird. Ein Wert ungleich Null bringt den Code nach IF (im 

Beispiel LAUFEN) zur Ausführung. Das Wort THEN markiert das Ende 

des Konditionalausdrucks; danach wird das Wort SPRINGEN auege- 

fUhrt. Ein Wert gleich Null ist Auslöser dafUr, daß der Code zwi¬ 
schen IF und THEN Übersprungen wird; es wird direkt SPRINGEN ous- 
geführt. 

Mit dem Wort ELSE kann man im Falle einer Flagge gleich 

Null einen alternativen Ausdruck ausfUhren; 

... C Flagge) IF LAUFEN ELSE GEHEN THEN SPRINGEN ... 

FORTH verfügt über verschiedene Schleifenformen; 
m ( bis+1) ( von) DO ... LOOP ... 

* ( bis+n) ( von) DO ... n +L00P ... 

* ... BEGIN ... ( Flagge) UNTIL ... 

“ ... BEGIN ... ( Flagge) WHILE ... REPEAT ... 


Wie sieht* ©in Lexikonein+rag aus? 

Dieser Abechnitt ist eher für fortgeschrittene 

Programmierer gedooht. .Sie müssen also nicht unbedingt 
welterlesen, um mit diesem System arbeiten zu kennen. 

Das FORTH-Lexlkon ist eine verkettete Liste von Nomen. Es 
gibt 8 Listen an denen heue Wörter ongehängt werden. Noch dem 

Anfangsbuchstaben wird entschieden, an weiche Liste ein Wort 

angehängt wird. Zusätzlich gibt es noch die Vokabulare 
(ASSEMBLER, EDITOR, GRÄFIN und FORTH), die bestimmen, wie die 
Wörter einer Liste untereinander verbunden sind: 
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Jedes Wort in FORTH hat den folgenden Kopf: 

a) Verkettungsfofd (LFA) mit einer Länge von 2 Bytes 

b) Namensfeld (NFA) mit einer Länge von bis zu 32 Bytes 

c) Code Pointer Feld (CFA) mit einer Länge von 2 Bytes 

d) Paramterfeld mit einer variablen Länge 


zu o) Das Verkettungsfeld verbindet die Wörter eines 
VokobOlars innerhalb einer Liste untereinander. 

zu b) Das erste Byte des Namenfeldes enthält die Anzahl der 
Zeichen des Namens. Die nächsten Bytes entsprechen dem ASCII-Code 
des Namens Cim Normalfoll). Durch die Uservariable WIDTH wird 
festgelegt, wieviel Zeichen eines Wortes im Höchstfall 
gespeichert werden. Ein Name kann also länger sein als diese 
Zahl, aber es werden nur maximal die WIDTH Ö ersten Zeichen eines 
Wortes in ASCII-Form gespeichert, während das Längenbyte Immer 
die "echte Länge" enthält. Um das ganze ein bischen deutlicher zu 
machen hier ein paar Beispiele: 

* der Name lautet "GERADENGLEICHUNG": 

- der Name hat eine Länge von 16 Zeichen 

- WIDTH hat irgendwann den Wert 31 (Voreinstellung) erhalten 

==> das Längenbyte hat den Wert 16 und 16 Zeichen werden 

gespeichert 

* der Name lautet "VORLESUNG" 

- der Nome hat eine Länge von 9 Zeichen 
WIDTH war auf den Wert 5 eingstellt 

==> das Längenbyte hat den Wert 9 und ee werden die 5 ersten 

Zeichen gespeichert 

* der Name iautet "IST" 

der Name hat eine Länge von 3 Zeichen 

- WIDTH hat den Wert 5 irgendwann bekommen 

==> das Längenbyte hat den Wert 3 und es werden 3 Zeichen 

gespeichert 

Das erste Bit des Längenbytes (Bitwert 128) ist immer eins, 

damit der Anfang des Ndmenfeldes gefunden werden kann. Das zweite 
Bit (Bitwert 61) zeigt an, ob ein Wort ein Immediate-Wort ist. 

Dies besagt, daB der Interpreter es bei der Kompilation nicht 
kompiliert sondern direkt ausführt, IMMEDIATE verändert dieses 


ie 


Bit. Da® drittm Bit (Bitwert 32) bestimmt, ob ein Wort für der 

Interpreter auffindbar iet. Da® Wort SMUOGE verändert dieses Bit 
Die restlichen Bits sind nur fUr die Namenslänge von Bedeutung. 

Das erste Bit (Bitwert 128) des letzten Bytes der 
abgespeicherten Namens hat den Wert 1, was zur Nomensbegrenzunf 
gebraucht wird. Wenn Sie also Beispielsweise den Namen HALLC 

haben, so ist nicht HALLO, sondern HALLQ (untestrichen stehl 

für Invers) gespeichert. 

zu c) Die im CFA enthaltene Adresse unterscheidet ein« 

Variable von einer Konstanten oder einer Doppelpunktfunktion. Sn 
entscheidet, was ein Wort nach seinem Aufruf tut. So legt z.B 

eine Variable ihre Adresse während der Laufzeit auf den Stack 

eine Konstante legt einen Wert auf den Stack und ein« 

Ooppeipunktfunktion ruft nacheinander alle Wörter auf, aus dener 

sie besteht. 

zu d) Nach dem Code Pointer kommt das Parameter feld. Ee 

besteht aus den Daten fUr die in der , CFA enthaltenen Adresse. Sc 

besteht die PFA einer Variablen aus einer Zelle, die den Wert der 

Variable enthält oder bei einer Konstanten aus einer Zelle, di« 
den Wert der Konstanten enthält. Bei einer Ooppeipunktfunktion 

besteht das Parameterfeld aus den Aufruf adressen (CFAs) ihrer 
Wörter. 


L 


! 
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Der Editor ist «in sogenannter Full-Screen Editor. Damit 
ist gewährleistet, daß man den Text bequem editieren kann. Der 
Bildschirm ist in zwei Teile oufgete/lt. Der obere Teil besteht 
aus S totußmeldungen und dem zu editierenden Text, der untere Teil 

aue 4 Zeilen zur Eingabe von Befehlen. 

Da der Atari Computer normalerweise nur 40, anstatt der in 

FORTH Üblichen 64. Zeichen/Zeile darste/Jen kann, habe ich zu ei¬ 

nem Trick gegriffen. Auf einmal können Sie zwar weiterhin nur 40 
Zeichen/Zeile sehen, aber durch Verschieben des Bildschirms kön¬ 
nen Sie die vollen 64 Zeichen nacheinander sehen. Der Bildschirm 

w.rd automatisch Verschoben, so daß man sich auf das reine Bear- 
Töxtes konzentrieren kann. Mit EDITOR wird auf das 

Editor-Vokabular umgeschaltet, wodurch man die Editor-Wörter erst 
benutzen kann. Damit man nicht versehentlich wichtige Daten zer¬ 
stören kann, schreibt man dis ganz# Zeit In einen Peeudo-Block. 

Erst wenn man UE eingibt werden die Daten In den richtigen Block 

Übernommen. 


Editor—Woi—he 

Ee werden nicht alle Worte besprochen, die das Editor- 
Vokabular enthält, sondern nur die, die direkt fUr den Benutzter 

gedacht sind und in den Kommandozeilen eingegeben werden 

können. 

a. ED =*> man kann einen Block editieren 

b. FH * FLUSH ==> speichert alle "geänderten" Blöcke ab 

c. UE ==> UEbernimmt einen Block als geändert in den 
Blockpuffer 

d. B ■*> geht einen Block zurück 

e. L =«> listet den aktuellen Block 

f. L. *=> listet einen Block im Blockfenster 

0 . N «> der Nächste Block wird zum aktuellen 

h. W **> Wechselt zum Block Im anderen Blockpuffer 

i. DATUM= =*> man kann den Stempel eingeben 

j. S" *==> man gibt den Anfangsblock, Endblock, den zu 

suchenden Text, der mit einem Anführungszeichen begrenzt wird, 
ein 

Beispiel: 20 30 S" Hallo" 

Nun wird Hollo auf den Blöcken 20 bis 30 gesucht. Wenn 
Hallo gefunden wurde, wird Hallo ♦ Blocknummer ♦ Zeilennummer 
♦ Textstelle ausgegeben. 

k. WIPE ==> der aktuelle Block wird gelöscht und als geändert 

markiert 


IE 


T cas»-t-a-t*uir'«scJi“t“or" 

Es stehen folgende Tastaturbefehle nach der Eingabe von EC 
zur Verfügung: 

a. <C0NTR0L>+Taste drücken 

b. spezielle Kombinationen 

zu a. 

* + =®> links 

m m ttES > rechts 

* - b«> hoch 

* ** »**> runter 

* H «*> Home (springt an den Blockanfang) 

* Q **> springt an den linken Rand einer Zeile 

* I ■*> schaltet den Elnfügsmodus sin 

m v ■■> Von (Anfang eines auszuschneldsnden Bereiches) 

* B *»> Bis (Ende eines auszuschneidenden Bereiches) 

* S **> Setzen (setzt den ausgeschnittenen Bereich ab der 
Cursorposition sin) 

* D *»> gibt den Stempel aus 

* < DELETE-BACKSPACE> **) löscht ein Zeichen rechts vom Cursor, 

alle nachfolgenden Zeichen der Zeile rücken noch 

* i ■■> geschweifte Klammer-Auf 

* < ■*> geschweifte Klammer-Zu 

m 3 mm> springt aus dem Texteditor in die Kommandozeile 
m > «b> fügt ein Leerzeichen in den Text ein 

zu b. 

* <CAP5> »»> schaltet zwischen Groß- und Kleinschreibung um 

* <TAB> *«*> springt um 3 Zeichen vorwärts 

* <RETURN> =*> springt an dep Anfang der nächsten Zeile 

* <SHIFT>+<C0NRT0L>+W *»> Wechseln (nun kann man ein Zeichen 

schreiben,' das sonst nicht bsnutzbar Ist, da dsr Editor es 
sonst als Kommando vsrsteht) 

* <INVERS> ßn > schaltet zwischen Normal— und Inversdarstellung 
um 

* <DELETE-BACKSPACE> «■> löscht ein Zeichen links vom Cursor 

und springt dorthin 

j 

Besonderheiten im EinfUgemodu*:' 

* <TAB> *»> fügt 3 Leerzeichen ein 

* <DELETE~BACKSPACE> ■*> alle Zeichen rechts vom Cursor "rut¬ 
schen" nach j 

* <C0NTR0L>-»-I ==> der EinfUgemodusj wird verlassen 

;Y 

Das Zeichen am Ende, einer Zeile springt, wenn ein Zeichen 
eingefügt wird, Dicht in die nächste Zeile sondern wird 
gelöscht. 
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S“hatusz &i te 

Die Stotuszeite hol folgendes Format:, 

SCREEN SCR* Modus X*X-Position 

* SCR * e=> die Nummer des Blockes, der gerade angezeigt wird 

* Modus ==*> N steht für Normal*Uberschreibmodua und I fUr 
Insert cEinfügemodus 

* X-Position «*=> gibt die momentane Cursorspatte an 


Zellonnummsrn 

Die Zeilennummern am äußersten linken Rand sind in 
hexadezimaler Basis angegeben. Das hat den Grund, daB es keinen 
Piatz fUr zwei Stellen gibt. Da alle Zeilennummern zusammen ein 
Player sind, bleiben sie auch beim Verschieben des 
Textbildschirms sichtbar. 


Stempel 

Der Stempel besteht aus einer 3 Zeichen langen Abkürzung 
für den Programmierernamen und dem Datum. 

Beispiel: DATUM* RAI 09.0B.1909 
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Dos besondere an Grafik-FORTH ist die superschnelle Grafik. 
Durch völlig betriebssystemunabhönige und tobellenbenutzende Be¬ 
fehle Ist dies erst möglich geworden. 


Bedeutung V'on RAM und ROIV1 

Da diese Routinen, aufgrund der zahlreichen Tabellen, viel 
Speicherplatz belegen, habe Ich sie "hinter das Betriebssystem- 
ROM gelegt". Damit man nun die einzelnen Befehle ansprechen kann, 
mup also zuerst das Betriebssystem mittels RAM ausgeschaltet wer¬ 
den und nach der Durchführung der Grafikbefehle wieder mit ROM 
eingeschaltet werden. Zwischen RAM und ROM dürfen alle Befehle 
auf gerufen werden, die keine Betriebssystemroutinen benutzen 
(z.B. CI). Befehle die Betriebssystemroutinen benut¬ 

zen sind z.B.: 

m 

m o. 

* U. 

w .R 

m d.R 

* EMIT 

m TYPE 

« LIST 

w INDEX 

* .LINE 

* KEY 

m BLOCK 

* FLUSH 

* EXPECT f 

* SPACE 

* SPACES 

* CR 

* LOAD 

* WIPE 

* (LINE) ' 

* QUIT ] • 

m HCOPY ! , 


Diö einzelnen |Gr'ca-ril<fc>eTe>t~ilo 


GRAFIK 

Durch das Wort GRAFIK wird das GRAFIK-Vokabular zum Con- 
text-Vokabular, wodurch man die Grafikbefehle erst benutzen kann. 
Durch FORTH wird das FORTH-Vokabular wieder zum Context -Vokabu¬ 
lar. Durch GRAFIK DEFINITIONS wird GRAFIK zum aktuellen Vokabular 
und alle Wörter, die danach definiert werden, werden dort 
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angehäng+. Durch FORTH DEFINITIONS kann man FORTH wieder zum 
aktuellen Vokabular machen. 

Beispiele: * 

* GRAFIK EIN 

* GRAFIK DEFINITIONS : TEST ... ; 


EIN 

Durch den Befehl EIN wird der Grafikbildschirm einge¬ 
schaltet (RAM ... SETDL ... ROM). Der obere Teil besteht aus 192 

Grafikzeilen und der untere Teil aus 4 Textzeilen. Es handelt 

sich also praktisoh um einen GRAPHICS-8+16-Bildschirm mit zusätz¬ 
lichen 4 Textzeilen. Durch das Wort wird ebenfalls der gesamte 

Grafikbildschirm gelöscht (RAM ... CLEAR RCL ... ROM) und die 

oberste y-Koordinate erhält den Wert 0 (RAM ... 0 WINDOW 

ROM). Man benutzt diesen Befehl meistens Im Zusammenhang mit dem 

Wort GRAFIK (GRAFIK EIN), um vom normalen Textmodus und FORTH- 
Vokabular zur Grafikprogrammmierung zu wechseln. 

Beispiel: GRAFIK EIN RAM 10 20 PLOT ROM 


AUS 


AUS wirkt wie der BASIC-Befehl GRAPHICS 0. Der Textmodus 



Beispiel: GRAFIK AUS 


CLEAR 


CLEAR löscht die Spalten 0-255 des Grafikbildteils. 
Beispiel: RAM CLEAR 2 3 100 200 LINE ROM 


RCL 

I 

RCL löscht den rechten Bildschirmbereich, also die Spalten 
256-319. j 

Beispiel: RAM RCL ROM 


COLOR C Farbe) 

Mit COLOR kann eine von 3 "Farben“ gewählt werden. Farbe 0 
bedeutet, daB ein Punkt, der verändert werden soll, gelöscht wird 
(entspricht COLOR 0 in BASIC). Bei Farbe 1 hingegen wird der 
Punkt gesetzt (COLOR 1 in BASIC), und bei Farbe 2 wird ein Punkt 

gesetzt, wenn er vorher gelöscht war und gelöscht, wenn er vorher 
gesetzt war (exklusives . Oder). Die Befehle PLOT, LINE, CIRCLE, 
TEXT, DRAWTO, BOX und SPRITE sind von der mit COLOR gewählten 

“Farbe" abhänig. 
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Beispiel: RAM 1 COLOR 100 34 2DUP PLOT PLOT ROM 


PLOT < x vO 

PLOT verändert den Punkt x,y. Oie Parameter dürfen die 
Werte 0-255 haben. 

Beispiel: RAM 67 89 PLOT 70 80 PLOT ROM 


LINE C x'l x2 v'S) 

LINE zieht sine Linie zwischen den Punkten xl.yl und x2,y2. 
Dabei wird Immer von “oben naoh unten gezeichnet", wodurch erst 
Turtle-Graflk möglich wird. Noch dem Zeichnen befinden sich die 
Koordinaten des Punktes x2,y2 In den Speicherstellen 90 und 91. 
Die Parameter dürfen Werts von 0-255 haben. 

Beispiel; RAM 0 1 46 43 LINE 50 51 100 123 LINE ROM 


CIRCLE C x v x—Radii-iö v—Radius) 

CIRCLE zeichnet eine Ellipse mit dem Mittelpunkt x,y und 

den Radien x-Radius und y-Radius. Ist x-Radius=y-Radius, so wird 

ein Kreis gezeichnet. x,y dürfen dis Werte 0-255 haben und x- und 
y-Radius 0-126, Sind der Mittelpunkt und die Radien so gewählt, 

daB die Ellipse Uber den Rand des Bildschirms hinausgeht, so wird 

am gegenüberliegenden Rand weitergezeichnetl 
Beispiel: RAM 127 DUP 10 DUP CIRCLE ROM 


RILL» C x v 4- 

FILL füllt eine begrenzte Fläche vom Punkt x,y aus mit dem 
Muster Muster*. Dabei wird von der Mitte nach oben uhd unten und 
von der Mitte nach links und rechts die Fläche abgetastet und ge¬ 
füllt. Es kann, bei komplizierten Flächen und einer ungünstigen 
Wahl des Punktes x,y, nötig sein die Fläche mehrmals von ver¬ 
schiedenen Punkten aus zu füllen, x und y können Werte von 0-255 

haben und Muster* einen Wert von 0-31. FILL ist nicht mit dem 
FILL-Befehl des FORTH-Vokabulars zu verwechseln! 

Beispiel: RAM 100 120 21 GRAFIK FILL J ROM 


■V 

SPRITE C x v Sp>r-i*t-e**> 

Sprites sind Grafikobjekte mit einer GröBe von 16x16 Punk¬ 
ten, die an beliebigen Stellen angezeigt werden können. Wenn 
“Farbe" 3 gewählt wurde, kann das Sprite durch einen nochmaligen 
Aufruf an der gleichen Stelle wieder gelöscht werden. Wenn Sie 
verhindern wollen, daB «In Sprite flackert, wenn es gesetzt oder 
gelöscht wird, müssen Sie VCOUNT (54283) abfrogen. Es enthält die 
Bildschirmzeile, die gerade generiert wird, geteilt durch 2. Für 
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PAL-Systema (bei uns) kann VCOUNT einen Werl zwischen 0 und 155 
haben. Nach meinen eigenen Erfahrungen ist der Elektronenstrahl 
außerhalb des Grofikfensters, wenn VCOUNT einen Wert >*100 hat. 
Üurch das folgende Wort kann man verhindern, daß ein Sprite 

flackert: 

CODE SPRITE’ ( x y Sprite * -- ) 

XSAVE STX, BE6IN, VCOUNT LDA, 100 « CMP, >* UNTIL, 

HEX 0E70C ( SPRITE-Handleradreese) JMP, DECIMAL C; 

Der Nochteil des Wortes SPRITE* ist, daß es recht allgemein 
gehalten ist und somit den Programmablauf möglicherweise unnötig 
verzögert. Es könnte ja sein, daß das Sprite nur in einem kleinen 

Teil des Bildschirms angezeigt werden kann und somit der Ver¬ 
gleichswert 100 für die Abfrage von VCOUNT viel kleiner sein kön¬ 

nte, was das ganze Programm beschleunigen würde. Ich empfehle 
Ihnen deshalb ein bischen mit‘ VCOUNT zu experimentieren. 

x,y sind die Üblichen Koordinaten, und Sprite* kann einen 

Wert von 0-15 haben. 

Beispiel: 

GRAFIK DEFINITIONS 

: T2 RAM 78 24 0 SFfRITE 100 0 DO LOOP 78 21 0 SPRITE ; 


TEXT ( x y a ModusW) 

Mit TEXT läßt sich ein Text, der ab der Adresse a mit der 

Länge * abgespeichert ist, ab der Position x,y im Modus Modus* 
ausgeben. Dabei wird ein ab Adresse tFOOO gespeicherter Zei¬ 
chensatz benutzt. Es können alle Zeichen des Zeichensatzes ausge¬ 

geben werden (also auch inverse Zeichen). Modus* gibt den Text¬ 
modus an: 

* Modus*=0 ==> 40 Zeichen Normalschrift 

* Modus**64 ==> 40 Zeichen doppelthoch 

* Modus** 128 =*> 80 Zeichen Schmalschrift 

* Modus*«192 *=> 80 Zeichen doppelthoch 

H.y ist die linke obere Ecke des Textstreifens. y kann 
beliebig zwischen 0 und 239 (bei doppelthoher Schrift) bzw. 247 
gewählt werden, x kann beliebig zwischen 0 und 311 gewählt wer¬ 
den, doch die Textausgabe beginnt stets an einer Vielfachen von 8 

Positionen. x wird intern in x=int(x/8)*8 umgewandelt. Intern 

sind damit also nur 40 Positionen möglich. 

Beispiel; RAM 8 10 0 BLOCK 10 64 TEXT ROM 


CROSS < x y) 

CROSS legt Uber den Bildschrim ein Fadenkreuz. x,y gibt 
dabei den Schnittpunkt des Fadenkreuzes an, das aus zwei auf sich 
senkrecht stehenden Linien besteht. x,y haben den Üblichen Wer- 
tebereich. 

Beispiel; RAM 20 45 CROSS ROM 


CUR < x-1 y “1 v-x2 y2) 

Mit CUR können x- und y-Koordinaten mit der Tastatur oder 
dem Joystick verändert werden. Oie Schrittweite wird mit v fest- 
gelegt, und x,y geben die momentane Position an. Ourch Bewegen 
des Joysticks in Port 1 werden die Koordinaten entsprechend ver¬ 
ändert. Wenn man Uber die Tastatur steuert, muß man beachten, daß 
die Steuerung wie folgt verläuft: 

Q W E 

A S D 

Z X C 

Nach der Ausführung von CUR Hegen die neuen Koordinaten 

auf dem Stack. x,y,v können Werte von 0-255 haben. 

Beispiel; RAM 40 50 STEP C8 CUR ROM . . 


CSPEED C-y> 

Mit CSPEED kann man die Schrittweite v Uber die Tastatur 
abfragen. Die Tasten 1 bis 0 stehen für die Werte 1-10. 

Beispiel: RAM CSPEED STEP CI ROM 


HCOPY 

Mit HCOPY läßt sich eine Druckroutine aufrufen, die den 

gesamten Grafikbereich auf einem Epson-Drucker oder kompatiblen 

ausdruckt (320*256 Punkte!). ‘Der Ausdruck erfolgt dabei mit einer 
Pichte von 72 Punkten pro Zoll, und das Betriebssystem-ROM muß 


eingeschaltet ein! 

Beispiel: HCOPY GRAFIK AUS 




WINDOW C y—Top) 




Mit diesem Befehl 

ändert, y-Top gibt dabei 

wird 

die 

der sichtbare 

y-Koordinate der 

Grafikbereich ge- 

obersten Zeile an. 


Bei der Verschiebung wird nicht gescrollt, sondern der ANTIC 
umprogrammiert. y-Top kann Werte von p bis 64 haben. 

Beispiel: RAM 0 DUP 255 DUP LINE 45 WINDOW ROM 


CSXN) ( Wlntcöl-Sinuswer—h) 

(SIN) schlägt in einer Tabelle nach dem entsprechenden 
Sinuswert für Winkel nach. Winkel darf nur zwischen 0 und 180 

liegen, und Sinuswert gibt den eigentlichen Sinuswert*10000 on' 
90 (SIN) ergibt also 10000 und nicht 1. Der Grund dafür ist, daß 

F0RTH nur mit Festkommazahlen rechnet. 
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LOCATE ( x y*-S+atus) 

Mit LOCATE wird abgefragt, ob der Punkt x,y gesetzt ist. 
Wenn der Punkt nicht gesetzt ist, ist Status gleich Null und 
sonst hat Status den Bit-Wert (128,64,32,16,8,4,2,1) des Punktes, 
x.y können Werte von 0-255 haben. 

Beispiel: RAM 10 13 LOCATE ROM . 


SETDL 

Mit SETDL wir<J die Display-List des Grafikbildschirms 
"gesetzt". 

Beispiel: RAM SETDL CLEAR ROM 


DRAWTO C x2 y2) 

V 

DRAWTO zeichnet eine Linie zu einem vorherigen Punkt (Ko¬ 
ordinaten in den Speicherstellen 90,91). FUr Assemblerprogrammie¬ 
rer: Es gibt keine Grafikroutine eigens fUr DRAWTO. Im Händler 

wird DRAWTO durch PLOT JSR, LINE JSR, simuliert. Wenn Sie einen 
Befehl in Maschinencode schreiben und eine DRAWTO-Routine benö¬ 
tigen, simulieren Sie sie durch einen Sprung zur PLOT- und danach 
zur LINE-Routine, wie es im Händler ebenfalls gemacht wird. 

Beispiel: RAM 10 23 PLOT 45 78 DRAWTO ROM 


BOX ( xo yo xt*Ji yu) 

Mit diesem Befehl wird ein Rechteck mit dem linken oberen 
Punkt xo.yo und dem unteren rechten xu.yu gezeichnet. xo,yo,xu 
und yu hoben einen Wertebereich von 0-255. 

Beispiel: RAM 40 50 90 120 BOX ROM 


t 

Tatoollo der Gi“crFit<i“oi-J+ir-i©ri 


Befehl I litriibssystie I Kondltrodr. I leutiniadr. I PsroBiNr I Belegte Speicheretellen tlerepogel 


CUM 1 

out 

1 IE721 

1 tDDOl 

1 - 

I 212,213 

KCl 1 

aus 

1 «715 

1 IDD2D 

1 - 

I 92,93 

FlOT 1 

aui 

1 «700 

1 SD0O3 

1 «1 yl 

1 212,213 

LINE 1 

• Ul 

1 «703 

1 SDD09 

1 il yl «2 y2 

l 111,115,111.119,125.210-215 

CIRCLE 1 

•ui 

1 «701 

1 SDDOI 

1 « y n ry 

1 125,127,212*215 

flU 1 

QUI 

1 «709 

1 tDDOC 

1 «1 yl Mutlirl 

ljj,83,»7.119. 

SPRITE 1 

0Uf 

1 «70C 

1 tODOF 

1 «1 yl Sprite* 

1 125,127,215,217 

TEXT 1 

■Ul 

1 «?or 

1 SDD21 

Hs ly • 1 Modul« 

1 91-53,95.97.111,115,111-120,125,127,210.215 

CROSS 1 

•US 

1 «712 

1 SDD1K 

I s3 yl 

1 »1,96,97 

CUR 1 

•Ul 

1 «721 

1 SDD1I 

1 sl yl t - « y* 

1 9? 

CSPEED 1 

OUI 

1 «727 

1 SDD27 

1 — u 

1 

HCOFT 1 

in 

1 ’ HCOPf 

1 99521 

1 - 

1 12.93,96,97,210,211 

mm i 

«Ul 

1 «719 

1 9DD30 

1 y*T«p 

1 93 

LOCATE 1 

• Ul 

1 «7« 

1 9DD12 

1 il yl -- Statut 

1 212,213 

SEIDL 1 

«US 

1 «711 

1 IDD2A 

1 - 

1 

ORATTO 1 

•Ul 

1 IE72A 

1 - 

1 «2 y? 

1 sieht LINE 

BOX 1 

•Ul 

1 «720 

1 9DD15 

1 *3 y3 il yl 

1 92,93,116,117 * LINE 

COLOR 1 

•Ul 

1 «733 

1 9D01E 

1 FerBt 

1 


Die Parameter stehen für folgende Adressen (dezimal): 

* x1*xn*=90 
w* y1*yn=91 

* x2=rx=y-Top-Sprite*«Muster*=Forbe=96 
m y2»ry=97 

m a=240 

* «=119 

w Modus« s *120 

* v=$FFF1 

* StatuB=xa126 

* y«127 

* tx=91 *, 


ty=y3=93 

x3=92 

x4=116 

y4«117 


Wenn man einen Grafikbefehl in Maschinensprache ouf rufen 
will, benutzt man am besten die Routineadresse. Bevor man eine 

entspre- 
die Zah- 
will, muß 


Routine aufruft, speichert , man die Parameter in die 

chenden Adressen und ruft sie dann via JSR auf. Wenn man 
len auf dem Stack hat und die Handlerroutinen benutzen 
man mittels JMP dorthin springen. Von der Routine wird 
Ende direkt noch NEXT gesprungen. Hier nun ein Beispiel: 

CODE TEST ... 45 « LDA, 90 ( xl) STA, 50 « LDA, 91 ( yl) STA, 

HEX 0DD03 JSR, DECIMAL ... NEXT JMP, C; 


dann am 
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Wenn Sie eine eolch« Routine aufrufen, müssen Sie vorher 
mittels RAM das Betriebssystem aus-* und es nachher mit ROM wieder 
einschalten. 


Uber Sp>r~iT-ö« 

Sprites haben eine Größe von 16 * 16 Punkten. Die Sprite- 

tabelle liegt im Speicher von SEAOO (59901) bis SEBFF (60115). 
Jedes der 16 Sprites besteht aus 32 Bytes, 16 * 16 Bits. Man kann 

die Sprites mittels der In Block 39 (Grafik-FORTH Teil 2) befind¬ 

lichen Befehle erstellen. Immer zwei Bytes bei einem Sprite bil¬ 
den eine Zeile, die man mit $, abspeichern kann. Man kann nicht 

den Befehl , benutzen, da dieser immer zuerst das Low- und dann 
dos Highbyte abspeichert. OBJEKT berechnet aus der Spritenummer 
deren Anfangsadresse und legt diese zusammen mit der Länge auf 
den Stack. Vor dem Kopieren mit CMOVE in die Spritetabelle ist zu 

beachten, daß vorher mit RAM das Betriebssystem ousgeschaltet 
wird (ROM später nichf vergessen!). 


Mehr Uber FUllmus+er 

Es gibt 32 verschiedene FUllmuster, die alle eine Größe von 

8 * 8 Punkten haben. Jedes FUllmuster beleget 8 Bytes (8*8 

Bits). Oie Mustertabelle befindet sich ab tECOO (60116) im Spei¬ 
cher und belegt 610 Bytes. Jede FUllmusterzeile entspricht einem 

Byte und kann deshalb mit C, abgespeichert werden. MUSTER (Block 
39) wandelt eine Musternummer in die entsprechende Adresse und 

Länge (8) um. Da die Mustertabelle ebenfalls im Speicherbereich 

hinter dem ROM liegt, muß man vor dem Kopieren mit RAM das RAM 

anschalten (ROM später nicht vergessen!). 


Bilder laden oder epoiohorn 

Mit den Worten auf den Blöcken 33-35 ist es möglich Bilder 

zu speichern und zu laden. Durch Blockt GET BILD kann man ein 

Bild laden, welches ab Block Blockt abgespeichert ist. Blockt PUT 

BILD speichert ein Bild ob Block Blockt ob. 

In der Variablen «ZEILEN speichert man die Anzahl der Zei¬ 
len. die ein Bild haben soll. FUr normale GRAPHICS 8-Bilder (z.B. 

DESIGN-MASTER-Bilder) speichert man also den Wert 192 in «ZEILEN 

und fUr Graf ik-FORTH-Bilder den Wert 256 fUr 256 Zeilen. Wenn man 

B.lder von DOS 2-Disketten Übernehmen will, wandelt man sie mit 

Htlfe des "Access DOS 2"-MenUpunktes im DOS 3-MenU um. Man sollte 
umgewandelte DOS 2-Bilddateien grundsätzlich auf eine Diskette 

speichern, die nur für Bilder gebraucht wird. Damit ist sicherge¬ 
stellt, daß alle Blöcke eines Bilder direkt hintereinander liegen 
und es somit keine Schwierigkeiten bei ihrem laden gibt. 

Danach wählt man dann den Punkt "X-user-def ined" Im Houpt- 

menU. Dort gibt man zuerst ein <RETURN> und dann auf die Frage ob 
BEREICH geladen werden soll <YW<RETURN> ein. Nachdem BEREICH 


geladen worden ist, legt man die Diskette mit der eben erzeugten 

Bilddatei ein und drUckt die RETURN-Taste (<RETURN>). Nach der 

Eingabe des Dateinamen» und dir Beantwortung der Frage, ob man 

die Blocknummern auf einem Drucker ausgedruckt haben will, werden 

die entsprechenden Blocknummern ausgegeben. 

Ale vorletzten Schritt läd man Grafik-FORTH und den Block 

18 auf Seite 1 (18 LOAD), legt Grafik-FORTH Teil 3 ein und gibt 0 

PHYSOFF ! 33 LOAD ein, wodurch die Wörter zum Loden und 

Speichern von Bildern geladen werden. 

Zum Schluß gibt man 3 PHYSOFF ! (wegen DOS 3) GRAFIK EIN 
192 «ZEILEN ! Block« GET BILD ein. Mit 0 PHYSOFF ! 256 «ZEILEN 

1 Block« PUT BILD kann man dann das Bild auf den Block Block« 

einer FORTH-Datendisk abspeichern. 
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schnell. Es 
den Com- 
bemerkens- 
sind als 


MokroasBemb- 


F ORTH-Pr ogrommm sind im Vergleich zu BASIC sehr schnell. Es 
gibt aber immer wieder Fälle bei denen es sinnvoll Ist den Com¬ 
puter in Maschinensprache zu programmieren. Dabei Ist bemerkens¬ 
wert, dop FORTH-Programme z.T. erheblich kurzer sind als 
vergleichbare Assemblerprogramme. 

In dieser fig-FORTH-Version ist ein sehr guter Makroassemb¬ 
ler integriert. Er besitzt folgende Eigenschaften; 

* vom Benutzer können Makros definiert werden 

* Zahlen können in einer beliebigen Zahlenbasis angegeben werden 

* in den Ausdrücken kann voll auf vorhandene Worte zurUckgegrif f en 
werden 

* zur Programmierung fwerden strukturierte Schleifen mit bedingten 
Anweisungen verwendet 

* es gibt eine FehlerprUfung 

* es sind keine Marken zugelassen 

* der Assembler ist in FORTH geschrieben und belegt ca. 1300 Bytes 

* *6 können "High-L,ever-Worte in die Routinen eingebaut werden 

Während der Assemblierung enthält die Uservariable CONTEXT 
die Wörterbuchadresse des Assemblers. Wörter werden zuerst im As- 
sembler Vokabular gesucht, so daß es möglich ist, daB, wenn Namen 
im Assemblerwortschatz und im FORTH-Wortschatz gleich sind, das 
Assemblerwort auf gerufen wird. 

Während der Asssemblierung einer CODE-Definition werden die 
Worte in ausführbaren Maschinencode Übersetzt. Dabei werden für 
die Verzweigungen die nötigen Adressberechnungen durchgeführt. 
Die bedingten Anweisungen (z.B. IF, UNTIL, BEGIN, ...) erzeugen 
dann den entsprechenden Maschinencode. 


durchgeführt. 
...) erzeugen 


Die meisten Assemblerworte sind mit einem V abge¬ 
schlossen. Diese Schreibweise hat drei GrUnde; 

* Das Komma zeigt den logischen Abschluß einer Anweisung an und ent¬ 
spricht somit einer Zeile in Assemblerschreibweise. 

* In FORTH speichert das Komma eine Zahl ins Wörterbuch. Somit wird durch 
das Komma verdeutlicht, daß diese Anweisung im Wörterbuch ge¬ 
speichert wird. 

* Das Komma unterscheidet bestimmte Befehlcodes von möglichen Hexzahlen, 
wie ADC. 


Der Assembler fuhrt mehrere Tests auf Fehler in der Eingabe 
durch: 

a. Alle bedingten Anweisungen mUseen richtig geschachtelt und gepaart 

sein. 

b. Die Adressierungsarten und Operanden mUssen bei den Befehlscodes 

erlaubt sein. 

c. Die Anzahl der Stackargumente darf nicht durch eine CODE-Definition 

nach außen hin verändert werden. 
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Diese Teste werden durch Überwachung des Stacks ( in CSP) 
und durch Bitmasken fUr die Adressierungsarten durchgeführt. Wird 

ein Fehler gefunden, so wird 0; nicht durchgeführt und dis Defi¬ 

nition Ist nicht benutzbar. Ihr Name wird zwar bei VLIST mitge¬ 
listet, doch der Interpreter kann sie nicht finden. Um den Nomen 
zu löschen gibt man SMUDGE FORGET Name ein. SMUDGE ändert ein 

Bit, so daß das Wort vom Interpreter gefunden werden kann und mit 

FORGET gelöscht werden kann. Die Fehlermeldung "DEFINITION NOT 

FINISHED" erscheint, wenn der Wert der USER-Variabfen CSP am Ende 
der Definition vom Wert des Stackpointers abweicht, sprich wenn 
vor und nach der Definition unterschiedlich viele Zahlen auf dem 

Stack liegen: 

a. zuwenige Zahlen: 5 CODE HALLO 2" * LDA, ( <- bezieht 

sich auf eine Zahl, die außerhalb der Definition von 

HALLO ouf den Stack gelegt wurde -> falsch!) HERE STA, 
NEXT JMP, C; —> Fehlermeldung DEFINITION NOT FINISHEO 

b. zuviele Zahlen: CODE HALLO HERE LDA, PAD STA, 5 <<- 

zuviel) NEXT JMP, C; —> Fehlermeldung DEFINITION NOT 

FINISHED 

Die Fehlermeldung "CONDITIONALS NOT PAIRED" wird ausge¬ 
geben, wenn ein Fehler bei der Verschachtelung aufgetreten ist. 
Ist bei einem Befehlscode die angegebene Adressierung nicht 
möglich, so erscheint die Meldung “HAS INCORRECT ADRESS MODE". 


Adressierungsai—hen 

FUr die einzelnen Adressierungsarten sind folgende Schreib¬ 
weisen festgelegt: 

Symbol Modus f Operand 


Akkumulator , 

unmittelbar nur 8 Bit 

mit X indiziert Zero-Page/absolut 

mit Y indiziert Zero-Page/absolut 

indiziert indirekt X ' nur Zero-Page 

indirekt indiziert Y > nur Zero-Page 
indirekt j f nur absolut 

Speicher Zero-Page/absolut 

Es folgen einige Beispiele jin FORTH-Assembler und normaler 
Assemblerschreibweise: j 

ROL A oder RÖL 
LOY «1 
STA DATA.X 
CMP DATA,Y 
ADC (6,X) 

STA (POINT),Y 
JMP (VEKTOR) 


.A ROL, 

1 * LDY, 

DATA ,X STA, 
DATA ,Y CMP, 

6 X) ADC, 
POINT )Y STA, 
VEKTOR ) JMP, 


.A 

« 

.X 

.Y 

X) 

)Y 

) 

keins 
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Stack 

Oer Stack wird in der Zero-Page angelegt und wächst in 

Richtung niedrigerer Adressen. Die Anfongsodresse ist 234. Das X- 
Register wird als Stapelzeiger verwendet. Ein Element des Stacks 

ist ein 16-ßit Wert und belegt somit 2 Bytes. Die Befehlsfolge 
INX, INX, entspricht dem Wort DROP. Um auf die erste oder zweite 
Zohl auf dem Stack zugreifen zu können, sind im Assembler die Ma¬ 
kros BOT und SEC vereinbart. 

BOT LDA, <*> 0 ,X LDA, 

SEC LDY, <*> 2 ,X LDY, 


Mit BOT LDA, BOT 1* LDY, werden die niederwertigen 8 Bit 
des obersten Elements auf dem Stack im Akkumulator und die hö¬ 
herwertigen 8 Bit im Y-Register gespeichert. 


Returnstack 

Der FORTH-Returnstack befindet sich in Page 1. Er startet 
bei 511 und wächst nach unten. Das CPU-Register S zeigt auf den 
nächsten freien Speicherplatz unterhalb des benutzten Teils des 
Returnstacks. 



Als Beispiel hier das Wort "R", das den "obersten" Wert des 
Returnstacks liest: 

CODE R ( — n ) XSAVE STX, TSX, RP) LDA, 

RP) 1* LDY, PHA, TYA, XSAVE LDX, PUSH JMP, Ci 


FORTH—Register 


Verschiedene FORTH-Register sind nur auf Assemblerebene 
benutzbar. 

IP ( — a ) (assemblieren) 

Während der Laufzeit enthält IP die 
Adresse des nächsten Wortes, dos 
von NEXT auf gerufen wird. 

W ( — cfa ) (assemblieren) 

Adresse der Codefeldadresse des 
Wortes, das soeben ausgefUhrt 
wird. 

UP C — a ) (assemblieren) 

Enthält die Anfangsadresse der 
Benutzervariablen. 


Prozessor—Register 

* Das Y-Register ist null. Es kann frei genutzt werden, 

* Das X-Register enthält das Lowbyte des "obersten" Stackelements relativ 
zur Adresse 0. 

* Der CPU-Stackpointer S zeigt ein Byte unterhalb des Lowbytes des 
"obersten" Returnstackelementes. 

* Der Akkumulator darf frei genutzt werden. 

* Der Prozessor ist im Binärmodus und muB in diesem zurUckkehren. 


XSAVE 

t 

XSAVE ist ein ein Bytebuffer in der Zero-Page (Adresse 255) 
fUr die zeitweilige Speicherung des X-Registers. 


IM—Bereich 

s 

N ist die Adresse 240 in der Zero-Page. Von N-1 bis N+7 ist 
ein ungenutzter Speicherbereich,] der dem Benuzter zur freien Ver¬ 
fügung steht. Da viele FORTH-Routinen diesen Speicherbereich be¬ 
nutzen, sollte N nur innerhalb eines einzelnen Wortes benutzt 

werden. 


S^TUP 

FUr das Kopieren von Zahlen vom Stack nach N gibt es die 
spezielle Routine "SETUP". Mon läd zuerst den Akkumulator mit 1, 

2,3 oder 4, je nachdem wieviel Werte man vom Stack in den N-Be- 

reich kopieren will, und springt dann mittels JSR, nach SETUP. 

Beispiel: 3 * LDA, SETUP JSR, 
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St©ueretruktur©n 

Der Assembler benötigt keine Marken. Diese werden durch 

zwei Besonderheiten ersetzt. Jedes in FORTH definierte Wort kann 

jederzeit in einer COOE-Oefini+fon verwendet werden. Zweitens 
wird die Assemblierung durch bedingte Verzweigungen (BEGIN, 
cc UNTIL, und cc IF, ... ELSE, ... THEN,) gesteuert. Die Abkür¬ 
zung cc steht für Condition Code. Dieser Code steuert die Ver¬ 

zweigung. 

Das folgende Beispiel zeigt die Programmierung einer 
Worteschleife: 

CODE DEMO 126 * LOA, N STA, BEGIN, N OEC, 

0« UNTIL, NEXT JMP, Ci 

Oie Hiffszelfe N wird in einer 'BEGIN, 
UNTIL,'-Schleife dekremeniert. Als Bedingung fUr 


den Schleifenabbruch wird die Abfrage 0* verwen¬ 
det. Wenn diese Bedingung erfüllt ist, wird 
mittels JM& zum nächsten Wort gesprungen. 

Es gibt folgende Bedingungen (Condition Codes) fUr die 

Verzweigungen; 

0 -.Verzweigung, wenn das Z-Flag des Prozessors 

gleich 1 ist 

0 <.Verzweigung, wenn dos N-Flag des Prozessors 

gleich 1 ist 

CS.Verzweigung, wenn das CARRY-Bit gesetzt 

ist. 

>-.gleich CS aber, nur korrekt nach CMP, j 

Durch NOT wird das Gegenteil abgefragt: j 


* PORTA LDA, O* IF, <a> THEN, (wenn PORTA gleich null ist wird <o> 
ausgefUhrt) 

* PORTA LDA, 0* NOT IF, <a> THEN, (wenn PORTA ungleich null ist wird <a> 

ausgefUhrt) j 

Wenn man ein 'BEGIN <a> cc WHILE <b> REPEAT'-Schleife in j 

Assembler programmieren will muß man zu einem Trick greifen. Man ' 

schreibt: HERE (oder BEGIN, DROP) <a> cc IF, <b> ROT JMP, THEN, ! 

! 

FORTH—Wöi—her in Maschinensprache 

Es gibt einen speziellen Befehl um High-Level-Wörter in 

Routinen einzubauen; EXEC, ( pfa — ). Wie Sie schon dem Stack¬ 

kommentar entnehmen können verlangt EXEC, eine Adresse auf dem 
Stack. Diese Adresse ist die "PFA" des aufzurufenden Wortes und | 

wird mit Hilfe des Tick O ermittelt. ‘ _ VLIST EXEC. . bindet 

z.B. das Wort "VLIST" in eine Routine ein. ' 


Wohin am Ende eines Woi—Less springen? 

Es gibt mehrere Möglichkeiten wohin man springen kann; 

a. NEXT 

b. PUT 

c. PUSH 

d. POP 

e. P0PTW0 

zu o. NEXT JMP. ruft das nächste Wort ouf. 

zu b. Mit PUT JMP. wird das oberste Stackelement von 

einem 16-Bit Wert Uberschrieben (z.B. CODE DEMO 2000 LSB * LDA, 

PHA, 2000 MSB * LDA, PUT JMP, C;). Oas niederwertige Byte wird 
Uber den Returnstack und dos höherwertige Uber den Akkumulator on 

PUT übergeben. 

zu c. Mit den gleichen Bedingungen kann eine 16-Bit Zahl 

auch an PUSH Uber geben werden. PUSH JMP. legt eine 16-Bit Zahl 

auf dem Stack ab. Anstatt mit PUSH, kann man auch mit folgendem 

Programm Daten auf dem Stapel oblegen: 

CODE DEMO DEX, DEX, 2000 LSB * LDA, BOT STA, 

2000 MSB » LDA, BOT 1* STA, NEXT JMP, C; 

zu d. Ein Sprung zu POP erniedirgt den Stackzeiger um eine 

16-BIT Zahl. 

zu e. Ein Sprung zu P0PTW0 erniedrigt den Stackzeiger um 

zwei 16-Bit Zahlen. 

Alle SprU nflft gprinaen. zum.jyprt NEXT, 


Wörter dee Assemblervokabulars 

t 

ASSEMBLER ( — ) ' 

setzt C0NTEXT auf ASSEMBLER 
BEGIN, ( — Anfangsadr-der-Schleife 1) (assemblieren) 

CPU ( Operand — ) 

Ein Definitionswort, das Befehje ohne Adressierung erzeugt. 

C; ( — ) 

beendet eine CODE-Definition j 
ELSE, ( al 2 — a2 2) (assemblieren) 

Der Programmteil hinter ELSE, wird während der Laufzeit 
ausgefUhrt, wenn cc vor IF, unwahr! ist. 

IF, ( cc — a 2) (assemblieren) I 

Während des Assemblierens wird der cc gespeichert und die 
Adresse auf den Stack gelegt* die von ELSE, oder THEN, 
weiterverwendet wird. Oie 2 dient zur Fehlererkennung. 

INDEX ( — a) (assemblieren) 

eine Tabelle, die die erlaubten Bitmuster enthält 
M/CPU ( Bitmuster Opcode — ) 

Ein Definitionswort des Assemblers. Es erzeugt Operation Codes 
mit mehrfachen Möglichkeiten der Adressierung. 
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mem r — ) 1 

setzt MODE auf di« absolut« Adressierung 
MODE ( — ol , 

Variable, welche die augenblickliche Adressierungsort 
enthält. 

THEN, ( a 2 — ) (assembtieren) 

WÖhrend des Assemblierens wird die Adresse o für die 
Verzweigungsberechnung benötigt. Die 2 dient zur 
Fehler erkennung. 

UNTIL, ( a i cc — ) (assemblieren) 

Wöhrend des Assemblierens wird ein bedingter Sprung, der von 
cc abhöngt, zur Adresse a assembliert. Die Eins dient zur 
Fehlerer kennung. 

UP ( — Anf angsadr-der-Benutzer-Variablen) 

UPMODE < o ? — a ?) 

stellt den Adressmodus aufgrund der Operandenlänge und des 
Opcodetyps ein, 

W ( -- a ) 


Während der Laufzeit enthält a die CFA des Wortes, das gerade 
ausgefUhrt wird. 


Der Moschinensprachebefehl an sich Ist der Opcode (z.B. 

LDA,) oder Operation Code. 

Der Operand ist praktisch das Parameter dazu. Bei 40 LDA, 

ist 40 der Operand und LDA, der Opcode. 




Bel Grafik-FORTM gibt es 3 Möglichkeiten den Computer auf 

einen Fehler reagieren zu lassen. Die zentrale Rolle spielt dabei 

die Uservariable WARNING. Wenn WARNING den Wert 0 hot, wird 
eine Fehlernummer ausgegeben, wenn es einen positiven Wert haf, 
wird ein Text ausgegeben und wenn es einen negativen Wert hat, 

wird ABORT" ausgefUhrt (wie bei Druck auf die BREAK-Taste). In 
den Blöcken 2-11 stehen die Texte, die beim Auftreten eines 

bestimmten Fehlers ausgegeben werden: 


1 . 

Block 

2: Meldungen 

128 bis 143 

2 . 

Block 

3: Meldungen 

144 bis 159 

3. 

Block 

4: Meldungen 

1 bis 15 

4. 

Block 

5: Meldungen 

16 bis 31 

5. 

Block 

6 ; Meldungen 

32 bis 47 

6 . 

Block 

7: Meldungen 

48 bis 63 

7. 

Block 

8 : Meldungen 

64 bis 79 

8 . 

Block 

9: Meldungen 

80 bis 95 

9. 

Block 

10: Meldungen 

96 bis 111 

10 . 

Block 

11: Meldungen 

112 bis 127 


Während die Meldungen 128 bis 159 Betriebssystemmeldungen 
sind, hängen die anderen mit FORTH zusammen. Sie werden immer vom 
aktuellen Laufwerk geladen! Do es Öfter Vorkommen kann, daB das 
Laden der Fehlermeldungen von Disk sich als ungUnstig heraus¬ 
stellt (z.B. beim Editieren von Blöcken), rate ich Ihnen den Wert 
von WARNING ("von Haus aus** 0) nicht zu verändern. 
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DOER (in Block 48/Seite « 1 definiert) ist ein Definitions¬ 
wort, welches einen Eintrog erzeugt, dessen Parameterfeld aus 
einer Zelle besteht. Diese Zelle enthält die Vektorf eldodresse 
und zeigt auf dos Wort NOTHING (deutsch; nichts). 

Während der Ausführung eines mit DOER definierten Wortes, 

wird die Vektorodresse auf den Returnstack gelegt. Die FORTH- 

Ausführung wird dann mit dieser Adresse fortgesetzt; dabei wird 
olso die Vektorfunktion ausgeführt. Dieser Trick gelingt aber nur 

mit Doppelpunktfunktionen. 
z.B: DOER SHOW 


: TEST 1 MAKE SHOW 2.3.; 

TEST1 <RETURN> —> SHOW zeigt auf den Code “2.3. ;". 

Wenn nun SHOW auf gerufen wird, wird der Code ausgeführt und 
eine 2 und eine 3 werden ausgegeben. 

: TEST2 MAKE SHOW 2 . ;AND 3 . ; 


TEST2 funktioniert anders als TEST 1, Nach dem Aufruf von 

TE . ST2 . ? ei ® t SH0W auf den Cod « "2 • !“ und «In» 3 wurde ou.a.- 


~~~ -- ” —— wi i vt 7——uiäu—LLU i_ riocn eine ^ _ausge- 

gfiUfia' ;AND ermöglicht also ein Wort so zu definieren, daß bei 

seinem Aufruf sowohl Worte mit MAKE näher bestimmt, als auch Wor¬ 
te ausgeführt werden. Mit Hilfe von [AND können auch Innerhalb 

eines Wortes mehrere Worte mit MAKE näher bestimmt werden. Die 

DOER/MAKE-Konstruktion läßt sich auch au&erhalb von Doppelpunkt¬ 
wörtern verwenden, wenn anstatt des Semikolons Cf) "M;“ be¬ 

nutzt wird. 


z.B. MAKE SHOW 2 . 3 . M; 


Auf Block 49 befinden sich drei Beispielanwendungen für die 
DOER/MAKE-Konstruktion. Beim ersten Beispiel wird mit Hilfe der 
Rekursion der gröBte gemeinsame Teiler zweier Zahlen ermittelt. 
"SAGE WAS“ demonstriert die Verschachtelung von MAKE-Anwelsungen 
und das letzte Beispiel zeigt eine Vorwärtsreferenz. Es gibt sehr 
v.ele Anwendungen, die sich sehr elegant mit der 
DOER/MAKE-Konstruktion programmieren lassen. 


i 


i 


Bef ©hie; 

* DOER; definiert ein Vektorwort 

* MAKE: 

- in einer Definition: 

♦ : Definitions-Name MAKE DOER-Name FORTH-Code ; 
bei DirektausfUhrung: 

♦ MAKE DOER-Name FORTH-Code M; 

* NOTHING: ein Wort, das nichts lut 

* ;AND: ermöglicht die Fortsetzung des Codes eines Wortes nach 
MAKE 

* UNDO: Gebrauch: UNDO DOER-Name; DOER-Name macht nichts und 
dient sicherzustellen, daB DOER-Name ausführbar ist 
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n (nuRberl 
d (double) 
u (uniipntd) 
ud (untipntd double) 
I (friple) 

4 (quadraple) 
c (chgrocter) 
b Ibyfil 

i 

f‘ Ifrue) 
f» (hin) 
e (oddrtti) 
cfo 
pffl 

< 4 

Io 

hi 

I 

e 

i 

R 

Koni 

x 

Befehl 

Erklärung 


Stack » 

2DR0P ( d — ) 

entfernt das oberste Zahlenpaar des Stacks 
2DUP ( d — d d) . 

verdoppelt (dupliziert) dos oberste Zohlenpaar 
20VER ( dl d2 — dt'd2 dt) 

kopiert das zweite Zahlenpaar hach oben 
2R0T ( dl d2 d3 — d2 dj3 dl) 

rotiert dos dritte Zahlenpaar nach oben 
2SWAP ( dl d2 — d2 dl) 

vertauscht die beiden obersten sZahlenpaare 
>R ( n — ) 

legt die oberste Zahl vom Stack auf den Returnstack 
-DIIP ( n — n n) oder (0 — 0) 

dupliziert n nur, wenn n ungleich null ist 
OVER ( nt n2 — nl n2 nt) 

kopiert die zweite Zahl nach oben 


einfech-tonge Zahl ait Vorzcichin 
doppilt-longe Zahl eit forztichen 
•inloth-lonpt Zahl ohm forziichtn 
dopptlHonga fohl ohnt forzilehon 
drtiftch-ionge Zohl 
vixrfxch-longe ZoM 
Mil Ziich«n*«rt 
Mit lyf« 

Booltchi floppt, edtr 

*ohr 

folteh 

Adnii» 

Cedilfldodrisi« 

foroRilirfildodrmi 

(vor ifnta Wort) Adrtcs« von 

(oll P«r) Souret Otcfinofion od*r 'von • noch* 

Uunlirii) Lieit 

(tobvrul Halt 

Count 

Offset tdir Äbclond 

Indtx 

Notlt 

Zeichenfolge, von tiniR L«erreichen begrenzt 
*un»ieMig* fDstensfruktur-Notofion) 

Stack 
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R ( — n) 

kopiert die oberste Zahl vom Returnstock auf den Stock 
R> ( — n) 

legt die oberste Zahl des Returnstacks auf den Stack 
ROT ( nl n2 n3 -- n2 n3 nl) 

rotiert die drittoberste Zahl nach oben 
SWAP ( nl n2 -- n2 nl) 

vertauscht die beiden obersten Zahlen 


Vorgleichsbefehle 

0 < ( n - r ?) 

? ist wahr, wenn n <0 
0 = < n — ?) 

? ist wahr, wenn n =0 
< ( nt n 2 — ?) 

? ist wahr, wenn nt<n 2 
= ’M nl n 2 - ?) 

? ist wahr, wenn nt=n 2 
> I nl n 2 — ?) 

? ist wahr, wenn nt>n 2 


Speicher 

! (na — ) 

speichert n in der Adresse a 

♦! (na — ) 

der Inhalt der Adresse a wird um n erhöht 
8 ( a — n) 

ersetzt die Adresse durch Ihren Inhalt 
BLANKS ( a » — ) 

füllt * Bytes ab Adresse a mit Leerzeichen 
C! ( b a — ) 

speichert ein Byte in die Adresse a 
08 ( a — b) 

liest den Byte-Inhalt der Adresse a 
CMOVE ( 6 d * __ ) 

kopiert einen » langen Speicherbereich von Adresse s noch d, 
das erste Byte wird zuerst kopiert 
CM0VE> ( s d • — ) 

wie CMOVE, aber das letzte Byte wird zuerst kopiert 
ERASE ( a * — ) 

füllt * Bytes ab a mit 0 
FILL ( a * b — ) 

füllt * Bytes ab a mit b’s 
TOGGLE (ab — ) 

der Byte-Inhalt von a wird XOR mit b genommen und in a 
gespeichert 


*10 


Arlthme+ifficho Funktionen 

* ( nl n2 -- Produkt! 
mutilpliziert nl mit n 2 

*/ ( nt n2 n3 — nt) 

nt«(nt*n2)/n3, das Zwischenergebnis ist 32-Bit lang 

*/M00 (nl n2 n3 — Rest Quotient! 

wie */, aber zusätzlich »st auch der Rest auf dem Stack 

♦ I nl n2 — Summe) 
addiert die Zahlen nl und n2 

( nl n2 — Differenz) 
subtrahiert n 2 von nl 

/ ( nt n2 — Quotient) 

n 1 /n 2 

/MOD ( nl n2 — Rest Quotient) 

Quotient und Rest der Division 


t* 

addiert t 

( n — n+ 1 ) 


1 - 


( n — n- 1 ) 



subtrahiert 

t 


2 * 


( n ™ 2 *n) 



multipliziert 

mit 2 (arithmetic left 

shift) 

2 + 

addiert 2 

( n — n+ 2 ) 


2 - 

zieht 2 ab 

( n — n- 2 ) 


2 / 


( n — n/ 2 ) 



dividiert durch 2 (arithmetic right 

shift) 

ABS 

( n — abs(n)) 



hintertäpt den Absolutwert einer Zahl (Betrag) 

D+ ( dl d2 — d-Summe) 

addiert zwei 32-Bit Zahlen 
D- ( dt d2 — d-Differenz) 

subtrahiert zwei 32-Bit Zahlen 
DABS ( d — abs(d)) 

berechnet den Absolutwert einer 32-Bit Zahl 

DMINUS ( d-d) ' 

wechselt das Vorzeichen einer ;32-Bit Zahl 
M* ( nl n2 — ,'drProdukt) 

multipliziert IB-Bit Zahlen, das Produkt ist 32 Bit lang 
M/MOD ( d n — d-Rest drQuotient) 

dividiert eine 32-Bit durch eine 16-Bit Zahl 
MAX ( nl n2 — max) j 

läßt die gröBte der beiden Zahjen auf dem Stack 
MIN ( nt n2 — min) 

läßt die kleinste der beiden Zahlen auf dem Stack 
MOD ( nt n 2 — Rest) 

hinterläpt den Rest von nt/n2 

MINUS ( n-n) 

wechselt das Vorzeichen 
S->D ( n — d) 

wandelt eine t 6 -Bit in eine 32-Bit Zahl um 
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U* f ul u2 — ud-Produkt) 

multipliziert zwei vorzeichenloee 16-Bit Zahlen, das Ergebnis 
ist 32-Bit lang , 

U/ ( ud ul — u-Rest u-Ergebnts) 

wie M/MOD, aber alle Zahlen werden vorzeichenlos behandelt 


U m w a m cJli-in g 

* t ud — ud) 

wandelt eine Zahlenstelle in ein ASCII-Zeichen um 
t> ( ud — a *) 

beendet die Zahlenformatierung 
*S ( ud -*^. 0 0) 

wandelt die restlichen stellen in ASCII-Zeichen um 
<* ( ud — ud) 

Beginn der Zahlenformatierung 
HOLD ( c — ) 

fUgt das ASCII-Zeichen c in die Zeichenkette ein 
SIGN On ud — ) 

wird unmittelbar von *> gebraucht, der gebildeten Zeichenkette 
wird ein vorangesetzt, wenn n negativ ist 

EI im— und Ausgabe 
( n — ) 

gibt n aus 

." xxx“ ( — ) 

schreibt die Zeichenkette xxx, die zweiten Anführungszeichen 
bezeichnen das Ende der Zeichenkette 
.R ( nl n2 — ) 

gibt nl rechtsbündig in einem n2 etefligen Feld aus 
CR ( — ) 

setzt den Cursor an den Anfang der nächsten Zeile 
COUNT ( a — o*1 *) 

ändert die Adresse einer Zeichenkette, deren Länge in ihrem 
ersten Byte gespeichert ist, und fUgt das Löngenbyte hinzu, so 
daß die beiden Parameter als Argument für TYPE, CMOVE, etc. 
dienen können 

D. < d — ) 

gibt eine 32-Bit Zahl aus 
D.R ( d n — ) 

schreibt eine 32-Bit Zahl mit Vorzeichen rechtsbündig in ein 
Feld der Größe n 
EMIT ( c — ) 

schreibt das ASCII-Zeichen c 
EXFECT Ca*—) 

erwartet die Eingabe von * Zeichen <oder einem RETURN) und 
speichert ihren Code ab a im Speicher 
KEY ( — c) 

wartet auf eine Eingabe und legt deren Code auf den Stack 


I 
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KEY? f — ?) 

? ist wahr, wenn eine Taste gedruckt wurde 
SPACE ( — ) 

gibt ein Leerzeichen ous 

SPACES ( n — ) 

gibt n Leerzeichen aus 
?TERMINAL I — ?) 

siehe KEY? 

TYPE ( a # — ) 

gibt # Zeichen aus, die ab a gespeichert sind 
U. ( u — ) 

gibt u als vorzeichenlose Zahl aus 
WORD ( c — ) 

liest eine Zeichenkette aus dem Eingabepuffer, bis es den 
ASCII-Code c findet, die Kette wird im Speicher bei HERE 
abgelegt, wobei das erste Byte die Länge der Zeichenkette 
enthält 


Kontrollstrukturen 

BEGIN ... AGAIN C — ) 

endlose Schleife 

BEGIN ... UNTIL UNTIL: ( ? — ) 

die Schleife wird solange durchlaufen, bis ? wahr ist 
BEGIN XXX WHILE: ( ? — ) 

WHILE YYY REPEAT 

XXX wird immer ausgeführt, YYY nur, wenn ? wahr ist, die 
Schleife wird beendet wenn ? falsch ist 
DO LOOP DO: ( Grenze Index — ), LOOP: ( — ) 

Schleifen Struktur mit festgelegten Indexgrenzen bei jedem 
Durchlauf, wird der Index um 1 Erhöht 
DO ... +LOOP DO: ( Grenze Index — ), +LOOP: ( n — ) 

wie DO ... LOOP, aber n wird zum Index addiert 
I ( — i) 

kopiert den Schleifenindex auf den Stapel (oberste Zahl auf 
dem Returnstack) ' 

IF XXX THEN IF: 

XXX wird ausgeführt, wenn ? wahr ist 
IF XXX IF: ('> — )' 

ELSE YYY ELSE: ( — ) 

THEN | 

XXX wird ausgeführt, wenn ? wahr ist, sonst YYY 
J ( — »> 

kopiert den Schleifenindex der höchst äußeren Schleife auf den 
Stack (drittoberste Zahl auf dem Returnstack) 

LEAVE ( — ) 

verläßt die Schleife beim nächsten LOOP oder ♦LOOP 
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Compiler—Woi—und Definitionewoi— 

' \ Name i — pfo) 

liefert die Parameterfeldadresse des Wortes Name 
( XXX) ( — ) 

veranlaßt den Textintepreter, den Text XXX bis zum 
Abschlußzeichen T zu Übergehen 
. ( n — ) 

speichert n in die nächste verfügbare Speicherzelle des 
Lexikons 

: \ Name ( — ) 

Beginn der Definition von Name 

; ( — ) 

Ende der Definition <• 

;CODE I — ) 

steht innerhalb der Definition von Definitionowörtern und 
markiert das Ende des Compilierzeitverhalten und den Beginn 
des Lauf zeit verhaltene, die Laufzeitonweisungen werden in 
FORTH-Assembler geschrieben 
<BUILDS '( -- ) 

erzeugt einen Lexikoneintrag (nur Kopf und Code Pointer) 

ALLOT ( n — ) 

vergrößert dos Parameterfeld des zuletzt definierten Wortes um 
n Bytes 

C t ( b — ) 

speichert b in die nächste verfügbare Speicherstelle 
C; ( — ) 

Ende der CODE-Üefinition 
CODE \ Name ( — ) 

beginne Assembler-Definition 
COMPILE \ Name ( — ) 

kompeliere die cfa von Name In die Quelldefinition, während 
der Laufzeit wird Name ausgefUhrt 
CONSTANT \ Name ( n — ) 

erzeugt eine Konstante Name mit dem Wert n 
CREATE \ Name ( — ) 

trägt Name ins Lexikon ein, mit HERE als cfa, Bit 8 der 
Nomenlänge ist gesetzt 
DOES> Laufzeit; ( — a) 

wie ;CODE, aber die Laufzeitanweisungen werden in 
FORTH-rHochsprache geschrieben, zur Laufzeit wird die pfa des 
definierten Wortes auf dem Stack gelegt 
LITERAL Compilierzeit: ( n — ) 

Laufzeit; ( — n) 

wird nur innerhalb einer Doppelpunkt-Definition verwendet, 
während der Compilierzeit wird eine Zahl als "Literal" ins 
Lexikon eingetragen, während der Laufzeit wird diese Zahl auf 
den Stack gelegt 
TIB < — a) 

Anfang des Eingabepuffers 
VARIABLE Compilierzeit: \ Name ( n — ) 

Laufzeit: ( — a) 

erzeugt eine Variable Name mit dem Wert n 
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VOCABULARY \ Name ( — ) 

erzeugi das Vokabular Name 
C ( — ) 

schaltet den Compiler ous 
CC0MPILE3 \ Name ( — > 

Name wird in die Definition kompiliert, auch wenn es ein 
IMMEDIATE-Wort ist! 

\ ( — ) 

Rest der Zeile ist Kommentar 
3 ( — ) 

schaltet den Compiler an 

Disl< I/O 

<CONTROL>+<,> I — ) 

Ende eines Blocks 
—> ( — ) 

läd den nächsten Block 
.LINE ( Zeilen* Block* — ) 

gibt Zeile Zeilen* von Block Block* auf dem Bildschirm aus 
;S ( — ) 

Ende eines Blocks 
B/BUF ( — n) 

Konstante, Blockgröße in Byte 
B/SCR ( -- n) 

Konstante, Blöcke pro Screen 
BLOCK ( u — a) 

Block u in Buffer bei a sichern 
BUFFER ( u — a) 

sucht den nächsten Block-Puffer ,ous und schreibt u in dessen 
Statuszelle ohne Block u zu laden 
DRO ( — ) 

Diskettenlaufwerk 1 wird aktuelles' und PHYSOFF erhält den Wert 
40 

DR4 ( — ) 

Diskettenlaufwerk 2 wird aktuelles und PHYSOFF erhält den Wert 
0 * 

EMPTY-BUFFERS ( — > 

loscht die Blockpuffer j 

FLUSH ( — ) , r ' 

speichert die als geändert markierten Blöcke ab 
INDEX ( s d — ) | 

listet die erste Zeile von den Blöcken js bis d 
LIST ( u — ) 1 

listet Block u 

LOAD ( u — ) 

läd Block u 

SAVE-BUFFERS ( — ) 

siehe FLUSH 

UPDATE ( — ) 

markiert einen Block als geändert 
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Uservariablen 

BASE t — o) » 

enthält die aktuelle Zahlenbosis 
BLK ( — a) 

/egt die Blocknummer des B/ocks auf den Stack* der gerade 
kompiliert wird, bei der Ausführung von Befehlen, die per 
Tastatur eingeben worden sind, ist BLK null 
CONTEXT ( ~ q) 

zeigt auf das Vokabular, das durchsucht wird 
CURRENT ( — a) 

zeigt auf dos Vokabular, an welches neue Definitionen 
angehängt werden 
OP ( — v al 

enthält den Wert, den HERE auf den Stack legt 
IN C — a) 

zeigt auf die aktuelle Position im Eingabetext 
INPT ( — a) 

enthält das zuletzt eingegebene Zeichen 
OFFSET f ; ( -- a ) 

enthält eine Zahl, die von BLOCK zu der ausgewählten 
Blocknummer dazuaddiert wird, bevor dieser geladen wird 
PHVSOFF ( — a) 

spielt nur bei Single-Oensity eine Rolle, enthält den 
"Abstand" zum Oiskettenanfong In Blöcken, wird von RESET (DRO) 
auf 40 gesetzt und erhält jedesmal, wenn die BREAK-Taste oder 
wann immmer "Graf ik-FORTH" ausgegeben wird, den Wert 40 
STATE ( — q) 

gibt den Systemstatus an (ob kompiliert (192) oder auegefUhrt 
(0) wird) 

WARNING ( — a) 

enthält ein Flag, das anzeigt, was bei einem Fehler gemacht 
werden soll 

Betriebssystem 

?ERR0R ( Fehlernummer ? — ) 

wenn ? wahr ist, wird die Fehlernummer oder der entsprechende 
Text ausgegeben oder ABORT wird durchgefUhrt 

?ST ACK < — ?) 

? ist wahr, wenn zu viele Werte auf dem Stack liegen 
ABORT ( •— ) 

bricht alles ab und der Stack wird geleert, PHYSOFF erhält 
den Wert 4011! 

ASSEMBLER ( — ) 

macht ASSEMBLER zum CONTEXT-Vokabular 
COLD ( — ) 

System in Startbedingung zurUcksetzen (wird bei jedem Start 
(Warm- (=<RESET> drücken) und Kaltstart(-einscholten des 
Computers)) durchgefUhrt. 

DECIMAL ( — ) 

Zohlenbais: Dezimal 
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DEFINITIONS ( — > 

dos CONTEXT-Vokabular wird ebenfalls zum CURRENT-Vokabular 
EDITOR ( — ) 

macht EDITOR zum CONTEXT-Vokabular 
EXECUTE ( cfa — ) 

führt das Wort aus, dessen cfa auf dem Stack liegt 

EXIT ( -- ) 

CREATE EXIT * ;S . SMUDGE 
FORTH ( — ) 

macht FORTH zum CONTEXT-Vokabular 
GRAFIK ( — ) 

macht GRAFIK zum CONTEXT-Vokabular 
HERE ( — a) 

legt die Adresse des nächsten freien Platzes im Lexikon auf 
den Stock 

HEX ( — ) 

Zahlenbasis: Hexadezimal 
INTERPRET ( — ) 

interpretiert den Eingobetext (wenn BLKs»0, dann 
Tastatureingabe, sonst BLK*8locknummer des zu 
interpretierenden Textes) ab der Stelle, auf die IN zeigt 
PAO ( — a) 

hinterlegt die Anfangsadresse des Textpuffers 
QUIT ( — ) 

bewirkt die RUckkehr in die äußere FORTH-Schleife. beide 
Stacks werden geleert und es wird eine neue Eingabe erwartet, 
es wird kein "oK H ausgegeben 
RAM ( — ) 

schaltet das Betriebssytem-ROM aus und der Bereich von 
hexadezimal C000 bis FFFF wird RAM, man kann nun alle 
Grafikbefehle bis auf HCOPY benutzen 
RESET (-->,! 

siehe ABORT 

INSTALL ( — ) 

installiert die Grafikroutinen 
ROM ( — ) 

schaltet das Betriebsystem-ROM wieder ein und somit wird der 
Bereich von hexadezimal C000* bis FFFF ROM, gleichzeitig kann 
man nicht mehr die Grafikbeffchle bis auf HCOPY benutzen 
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Die kopierten Seiten eind 'ous dem Buch "In FÖRTH denken", 

weiches im Carl Hanser Verlag erschienen ist. Die Bestellnummer 

dieses sehr guten Buches finden Sie im Vorwort. 


Anhang E 

Zusammenfassung der Stilkonventionen 


Unter Voraussetzung der Quellenangabe kann der Inhalt dieses Anhangs ohne Ein¬ 
schränkung reproduziert und weitergegeben werden. 


Regeln zu Leerschritten und zum Einrücken 


I 

l 


1 Leerachritt zwischen Doppelpunkt und Namen, 

2 teerschritt* zwischen Namen und Kommentar*, 

2 Le er schritt* oder ein Wsgenrückleuf und Zeilenvorschub nach dem Kommentar und vor der Oe- 
finitton*, 

3 Leerschritte zwischen Namen und Definition, wenn kein Kommentar gegeben wird, 

3 Le er schritte einrücken bei jeder Folgezelle (oder ein Vielfaches von 3 bei verschachteltem Ein¬ 
rücken). 

1 Laer schritt zwischen Worten/Zahlen in einem Ausdruck, 

2 oder 3 Leerschritte zwischen Ausdrücken, 

1 Leerschritt zwischen dem letzten Wort und dem Semikolon, 

1 Leerschritt zwischen dem Semikolon und IMMEDIATE (wenn es aufgerufen wird) 

Keine Leerzeilen zwischen Definitionen, außer wenn es darum geht, besondere De¬ 
finitionengruppen optisch voneinander zu trennen. 


Abkürzungen für den Stack-Kommentar 


j 

t 


n 

d 

u 

ud 

t 

q 

c 

b 

? 

t- 

f~ 


(number) 

(double) 
junsigned) 
(unsigned double) 
(iriple) 

(quadruple) 

(cheracter) 

(byte) 

(true) 

(false) 


einfach-lange Zahl mit Vorzeichtn 
doppelt-lang* Zahl mH Vorzeichen 
einfach-lange Zahl ohna Vorzeichen 
doppelt-lange Zahl ohne Vorzeichen 
dreifach-lange Zahl 
vieriach-lange Zahl 
7-Bil Zeichenwert 
6-Bit Byte 

Bool'sche Flagge, oder 

wahr 

falsch 

* 


L 


aoderadr Adresse 
cfa Codefeldadresse 

pfa Paxameterfeldadresse 

(als Prifix) Adresse von 

• d (d* Paar) Source Destination oder .von - nach' 

Io hfo für lower (- unteres) Um« 

hl für high (- oberes) Unit (inklusive)I# Count 

o Offset oder Abstand 

I Index 

m Maske 

x .unwichtig 1 (DatenstruMur-Notstion) 

Ein „Offset“ ist ein )n absoluten Einheiten ausgedrückter Unterschied, beispielswei¬ 
se In „Bytes". 

Ein „Index“ ist ein in logischen Einheiten ausgedrückter Unterschied, beispielswei¬ 
se „Elemente“ oder „Records". 


Festlegungen zum Efngabetext-Kommentar 


o Einzelzeichen mit abschieBendem Leerzeichen 

Name Zeichensequenz mH abschüeSendem Leerzeichen 

Text Zeichensequenz, abgeschlossen durch ein bestimmtes Zeichen - kein Leerzeichen. 

Beenden Sie einen „Text" mit dem tatsächlich erforderlichen Begrenzer, z.B. Text" 
oder Text). 


Musterbeispiele für guten Kommentarstil 

Sie finden nachstehend zwei Quelltextblöcke als Musterbeispiele guten Kommen¬ 
tarstils. 


Xiock t 127 
O \ Formatierer 

1 * COMSTAMf htirrZEILE 

2 35 C0N5TANT ENDZEILE 

3 

4 CREATE TEXTANFANG 82 ALLOT 

3 \ ( Hinke l 1 recht* 

6 CREATE TEXTENDE 82 ALLOT 

7 \ < llirik* 1 1 recht* I SOtextende ) 


Dalenstrukturen —* »,2 
\ Heilen fv-iUnf.-tu 
V Hellen Textende 


80textanf»ne > 


9 VARIADLE WAAGRECHT 

10 VARIABLE SENKRECHT 

11 VARIABLE LINKS 

12 VARIABLE WALL 

13 VARIABLE WALL-WAR 

14 
10 


\ Aktuelle horizontale Position de» Formatierer« 
\ aktuelle vertikale Position des Formatierer* 

\ aktueller *ri»ae|er linker F:*nd 

V ektuuIller -enäherer rechter Rand 

V WALL bei Besinn normetlerunj der eit. Zelle 


* En# o« gefundene Alternative ialdtt 1 Laerschritt zwischen Namen und Kommenlar und 3Leerschntte Zwischen 
Kommentar imd Definition zu setzen. Eine großzügigere Tachn* benutzt SLeerachritte vor und nach dem Komment» 
WoIlv S* srch auch entscheiden mögen, bleben Sie konsistent 
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Block t 127 


0 V For»»ti«r«r Pa«itl<mi«runtf ■ 

1 t SKIP ( n> WAAGRECNT +( 1 

— 8,1 

06.06,83 

2 t NEULJNKS \ Unken Rend neu einrichten 


3 LINKS S PERMANENT 9 » ♦ TEMPORAER 

P + WAAGRECHT » 

i 

S E1N0AN0 CR' 1 SENKRECHT ♦> NEULINKS MALL f HALL-WAR ! 1 

t \ OBEM? 1 — T«ob*n> OBRAHD SENKRECHT t - 1 

7 t >CBRAND S von d*t Z*il* in d«r, ob«ran Rand ««har* 


S 0 SENKRECHT ! BEO IN MEILE OBEN? 

f 

10 

n 

12 

13 

14 

UNT1L t 


15 

Konventionen der Namensgebung 

Bedeutung 

Arithmetik 

Form 

Beispiel 

Integerzahl 1 

1 Name 

1 + 

Integerzahl Z 

2 Name 

2# 

Annahme relativer Elngabeparameter 

+ Name 

+ DRAW 

Annahme akallerter Eingabeparameter 
Compilation 

«Name 

■tt-DRAW 

Start des .Hochsprachen* Codes 

Name: 

CASE: 

Ende des .Hochsprachen* Codes 

;Name 

;CODE 

Etwas ln das Lexikon legen 

Kommt In der Compilationszelt zur 

Name, 

c, 

Ausführung 

(Name) 

(COMPILEJ 

kleine Abweichungen 

Name’ 

CR' 

Interne Form oder Primitivwort 

(Name) 

(TYPE) 

• 

oder <Name> 

<TYPE> 

Laufzeiten Im Compilationswort: 

Systeme ohne .Folding* 

Kleinschreibung 

If 

Systeme mH .Folding* 

(NAME) 

m 

Definitionswort 

:name 

:FARBE 

Blocknummer, an der ein Overtay beginnt 
Datenstrukturen 

NamING 

DISKING 

Tabelle oder Array 

Namen 

MITGLIEDER 

Totale Anzahl der Element^ 

#Name 

# MITGUEDER 

aktuelle Elementnummer (Variable) 

Name# 

MITGLIEDS# 

Setzen des aktuellen Elements 

(n) Name 

13 MITGLIED 

Vorrücken zum nächsten Element 

+ Name 

+ MITGLIED 


j Bedeutung 

Offsetgröße zum Element vom 
Strukturenfang 

Größe (In Bytes pro) von (Kurzform für 
j BYTES/Name) 

| Indexzeiger 

Umwandeln der Stmkturadresse fn die 
i % Elementadresse 
1 * Dateienindex 
| Dateizeiger 

! Initialisieren der Struktur 

j Richtung. Umwandlung 

< rückwärts 

vorwärts 
von 
• nach 

umwandetn In 
nach unten 
nach oben 
öffnen 
schließen 

Logik, Kontrolle 

Zurückbringen einer Bool'schen Flagge 
Zurückbringen einer reversen 
Boorschen Flagge 
Adresse eines Bool’schen Wertes 
Beinhaltet konditionelle Operation , 
Aktivieren 7 . 

oder: fehlendes Symbol 
Stillegen, Deaktivieren 

Speicher 

Sichern des Wertes von 
Zurückbringen des Wertes von 
Speichern In ; 

Holen von 

Buffemame j , 

Adresse von Name 
Zeigeradresse auf Name 
] Austausch, Ipsbes. Bytes 


Form 

Name+. 

/Name 

>Name 

>Name 

(Name) 

-Name 

OName 

Name< 

Name> 

<Name 

>Name 

Name > Name 

\Name 

/Name 

(Name 

(Name 

Name? 

-Name? 

’Name? 

7Name 

+ Name 

Name 

-Name 


®Name 

(Name 

Namel 

Name® 

:Name 

'Name 

'Name 

>Name< 


Beispiel 


DATUM + 

/MITGLIED 

>IN 

>BODY 

(PERSONAL) 

-BERUF 

ORECORD 


SLIDE < 

CMOVE> 

<TAPE 

>TAPE 

PFENNIGE > MARK 

\ZEILE 

/ZEILE 

(DATEI 

(DATEI 


KURZ? 

-KURZ? 

'KURZ? 

?DUP (auch DUP) 
+ CLOCK 
BLINKING 
-CLOCK-BUNKING 


®CURSOR: 

1CURSOR : 

SEKUNDENI 

INDEX® 

:INSERT 

*S 

TYPE 

>MOVE< 


I 
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Bedeutung 

Form 

Beispie) 

Numerische Typen 

Bytelänge 

CName 

CS> 

Größe von 2 Zeilen, 2er-Komptement 

DName 

0+ 

Mischoperator 16- und 32-Blt 

MName 

M* 

Größe von 3Zellen 

TName 

T* 

Größe von 4 Zellen 

QName 

Q* 

Encoding ohne Vorzeichen 

UName 

U. 

Ausdrucken des Elements 

.Name 

.S 

numerisches Drucken 

Name. 

D. , U. 

rechtsbündiges Drucken 

Name.R 

U.R 

Menge 

.pro* 

/Name 

/SEITE 

Reihenfolge 

Start 

<Name 

<# 

Ende 

Name> 

#> 

Text 

Es folgt ein String mit abschließenden 

Anführungszeichen 

Name* 

ABORT* Text' 

Text- oder Stringoperator (ähnlich dem 

$-Präfix In BASIC) 

“Name 

“COMPARE 

Superstring Array 

*Name" 

“FARBEN* 


Wie man die Symbole ausspricht 

I Speichern oder englisch .Store* 

® Holen oder englisch „fetch* 

0 Nummer oder .Sharp* 

$ Dollar 
% Prozent 

‘ ein 'Dach* oder englisch “Caret" 

&.. ampersand? 

* Sternchen, Asterisk oder englisch *star* 

( Runde Klammer-Auf 

) Runde Klammer-Zu 

- Bindestrich oder englisch ‘dash* 

+ Phis 

- Gleich 

{) Geschweifte Klammem 
I) Eckige Klammem 

* Anführungszeichen 

' als Präfix: Tick (deut&ch: Hükchen), als Suffix: prima 
' Tilde 
| Barzeichen 

\ ‘Backslash* (für ‘nach unten“, ‘weglassen*) 


/ *Slash" oder “Schrägstrich" (für “nach oben“) 

< kleiner a/s (left darf). 

> größer als (right dart) 

? Fragezeichen (manchmal auch englisch *query*J 
,Komma „ * 

. Punkt oder englisch “Dot“ 







53 


54 


na,—Sgeicher-Pläne 


Speicheraufteilung 


$0800 

$9500 


$3FF1 


Betriebs- 

syste* 


HI WEH 


HEBE 


FORTH 


oder 


RAH 


49152 

36144 

16369 


1 -1 ■ -Stack ze l chnuny 

Fall* Sie eine verzwickte Situation auf den Stack lösen 
müssen, ist es praktisch dies mit Hilfe einer ßtackzeichnung zu 
A ? £ ^ <,6r Ochsten Seite finden Ble ein Beispiel ffir eine 
Stackzeichnung und auf der ftbern&chsten Beite Ist ein leeres 
Formular. Sie können dieses fotokopieren und dann neue Wörter mit 
dessen Hilfe erstellen. 


Bereich von SC000 bis $FFFF 


$rrFF 

$FFF0 

$F400 

SF000 

6EC00 

$EA00 

«E700 

9DD00 

SDC00 

$DAB0 

$0900 

$0800 


«C000 


Variablen 


Zeichensatz 
. hustenab. I 


Sprites 


Hand fr ' 


Routinen 


SinustabT 


Zeilenadr. 


älttabäl lü 


metabeneI 


frei 


65535 

65520 

62464 

61440 

66416 

59904 

69136 

56576 

56320 

B8Q08 


49152 


) RAH 


I 
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: Wortname: *2EtLE Programmierer: RAT Datum: 0^.0V. 90 : 

• t* 


: Operationen: 

: Stackeffekte: 

: Returnstack: 

: 

: / " n 1 ) / ) 

‘'(111/ / III 

/ s 

, i - - a 

4 

« 

a 

• 

• 

4 

4 

)ZEU£V# e 

; 2uA 

5 

• 

• 

4 

m 

; RAH 

\ TaJU 

4 

• 

* 

4 

9 

! DOP 

! Z*Ua ZtUt 

: 

t 

! 5 'CP Pr f 

s o 1 

: 

• 

• 

t 

4 

• 

\ ce z$C # 

5 fecÄ-Ai 

: 

4 

4 

i SWAP 

• ( ZüA-ki ZuA 

i 

: 

* 

i 

i SOU-0 t 

4 

i 'ZjuA-h oa 

t 

3 

4 
* 

\ c & 


: 

5 

• 

• 

4 

4 

i +- 

i 1 Z&J& 

• 

• 

4 

V 

i Rom c 

i a = '2tl& 

: » 

3 

\ 

s 

i 

4 

4 

5 

: 

s 

• 

4 

• 

* 

4 

• 

s 

• 

• 

• 

• 

: 

4 

• 

: 

4 

■ 

4 

• 

: 

• 

• 

* 

4 

4 

• 

4 

• 


: Vortname: Programmierer: Datum: 

i 


Operationen: : Stackeffekte: : Returnstack: 



: 













































a. <CONTROL>+Taste drücken 

b. andere Tastaturkommandos 

zu a. 

* + -> links 

* * -> rechts 

* - -> hoch 

* = -> runter __ 

* H -> Home (springt an den Blockanfang) 

* Q -> springt an den linken Rand einer^Zeile 

* I -> schaltet den Einfügemodus an 

* V -> Von (Anfang eines auszuschneidenden Bereiches) 

* B -> Bis (Ende eines auszuschneidenden Bereiches) 

* S -> Setzen (setzt den ausgeschnittenen Bereich ab der Cur¬ 

sorposition ein) 

* D -> gibt den Stempel aus 

* <DELETE-BACKSPACE> -> löscht ein Zeichen rechts vom Cursor 

* ; -> geschweifte Klammer-Auf 

* < -> geschweifte Klammer-Zu 

* 3 -> springt aus dem Texteditor in die Kommandozeile 

* > -> fügt ein Leerzeichen in den Text ein 

zu b. 

* <CAPS> -> schaltet zwischen GroB- und Kleinschreibung um 

* <TAB> -> springt um 3 Zeichen vor 

* <RETURN> -> springt an den Anfang der nächsten Zeile 

* <SHIFT>+<C0NTR0L>+W -> wechseln <=> Tastaturkommandos aus 

* <INVERS> -> schaltet zwischen Normal- und Inversdarstellung 
um 

* <DELETE-BACKSPACE> -> löscht ein Zeichen links vom Cursor und 
springt dorthin 

Besonderheiten im Einfügemodus: 

* <TAB> -> fügt 3 Leerzeichen ein 

* <DELETE~BACKSPACE> -> alle Zeichen rechts vom Cursor "rut¬ 
schen" nach 

* <CONTROL>+I -> der Einfügemodus wird verlassen 




Ste mp» es 1 

Beispiel: DATUM= RAI 09.08.1989 


E <3 itorbefehle 

* ED -> Editieren eines Blockes 

* FH -> speichert alle "geänderten" Blöcke ab 

* UE -> übernimmt einen Block als geändert in den Blockpuffer 

* B -> geht einen Block zurück 

* L. -> n L. listet den Block n im Blockfenster __ 

* L -> listet den aktuellen Block 

* N -> der nächste Block wird zum aktuellen - ~ 

* W -> wechselt zum Block im anderen Blockpuffer ' 

* S" -> s d S" <TEXT>" sucht <TEXT> und gibt die Fundstellen aus 

* WIPE -> der aktuelle Block wird gelöscht und als geändert markiert 




